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000000 



.TITLE TSINIT — TSX startup initialization 

. ENABL LC 

. ENABL AMA 

. DSABL GBL 

. CSECT TSINIT 



TSINIT: 



There are two external asBembly-time switches related to assembling 
TSINIT for execution on a PRO or a PDP-11. 

The following values for the PROASM flag are defined: 

--> Assemble for PDP-11 <not Pro) only. 

1 ==> Assemble for Pro only. 

2 ==> Assemble for either PDP-11 or Pro execution. 

The following values for the PROCID flag are defined: 

==> Do not lock system to ID number. 

1 ==> Lock system to ID number. 



. IF NDF, PROASM 

PROASM = 

. ENDC i NDF, PROASM 

. IF NDF, PROCID 

•IF EQ, <PR0ASM-1> 

PROCID = 1 
. IFF 

PROCID = 

. ENDC i EQ, <PR0ASM-1> 

.ENDC j NDF, PROCID 

.IF EQ, PROASM 



i If PROASM not defined 

; Default value for PROASM if not defined 



i If PROCID not defined 

; If assembling for PRO only 

jThen check ID by default 

i If not assembling for PRO only 

J Then don't check ID number 



TSXPRO = 



GLOBL TSXPRO 


ENDC 



j Define dummy base for TSXPRO if not PRO 



TSINIT is the initialization module of TSX that is executed once 
during system startup. Time-sharing character buffers and other 
run-time data areas are allocated over TSINIT. 



Copyright 1980, 1981, 1982, 1983, 1984, 1985. 
S&H Computer Systems, Inc. 
Nashville, TN USA 



Macro calls 

. MCALL . LOOKUP, . ENTER, . READW, . SAVESTATUS, . OVAL 

. MCALL . TRPSET, . SETTOP, . CLOSE, . TTYOUT, . PRINT, . PURGE 

. MCALL . DELETE, . WRITW, . SERR, . HERR, . EXIT, . UNLOCK 

. MCALL . FETCH, . RELEASE, . LOCK, . OTIM, . DATE, . DSTATUS 

. MCALL . SCCA, . CSTAT 

Global definitions 

. GLOBL TSINIT, INITGO, INITOP, PPTERM, PROITP, PROASM, PISRT 
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. GLOBL DSKBUF, PROBUF, FNDHRB> HANXMR 

Following global only needed for the Pro distribution 
creation program - MAKPRO and installation program - INSTSX 

IF NE, PROASM 

** Assemble this code if we are generating for a Pro 

. GLOBL PROSIZ, PROINI, PROLIN, PROHAN, PRONOP 
.GLOBL PIHANiPIDPTR, PIDRIV 
IFF i HE, PROASM 

«* Assemble this code if we are not generating for a Pro 

. GLOBL TSXPRO 
TSXPRO = 

*« End of conditional Pro code 

. ENDC i NE. PROASM 

Global references 

. GLOBL HANDSK, MAXDEV, NDVRCB. HANRCB, HANRCO 

. GLOBL LXCL, VSYDMP, STKLVL, INTSSZ, INDFIL, NXIVMH, EXCBUF 

. GLOBL VNUIP> NSIP, INSTBL, INSTBN, II**SZ, DCCSIZ, VNUMDC, NUMCDB 

. GLOBL NSCP, SCPFHD, SP**SZ, CSHDEV, CSHDVN, VMXCSH, CD**SZ 

. GLOBL LSTPL, LMXNUM, MXCSR, MXVEC. RSRi INVEC, VHIMEM, CXTPAG 

. GLOBL LSWPBK, LSTSL, SWDBLK, SWPCHN, NUMDEV, CS*NMX, SCHED 

. GLOBL H. DSTS, DVSTAT, HANENT, H. GEN, FORK, INTEN, PNAME 

. GLOBL *SXON, LSWIO, LHIRBB, LHIRBE, LHIRBP, LHIRB6, LHIRBA 

. GLOBL LHIRBS, LHIRBC, VNCSLO, VNCXOF, VNCXON, SDDVU, VMSCHR, MAXSLO 

. GLOBL MPARO, MPAR16, PARENL, MPARFL, TSEMT, VDBFLG, DX*EBA 

. GLOBL H. SIZ, HANSIZ, H. DVSZ, DEVSIZ. LOMAP, MMENBL, UPAR7 

. GLOBL PSW, HIMAP, FSTDL, LSTDL, LINBUF, LINSIZ, NUMCCB, TKISEC 

. GLOBL FRKINI, FRKGEN, NUMFRK, FQ**SZ, H. CSR, H. INS, VSWPSL, DMYDEV 

. GLOBL LINEND, LOTBUF, LOTSIZ, LOTEND, KMNTOP, KMNHI, NSL. NDL 

. GLOBL DX*MPH. DX*NHM, DX*IBH, HANPAR, HANXIT, MAPPAR, LINSPC 

. GLOBL KMNPGS, KMNSTK, KMNSTR, KMNCHN, SROMMR, KPARO, PROFLG 

. GLOBL EMMAP, lOMAP, SR3MMR, lOPAGE, MAPSIZ, SR3FLG, NSPLDV 

. GLOBL UPARO, KPDRO, UPDRO, KPAR7, BASMAP, PTWRD, PTBYT, LOKMEM 

. GLOBL GTBYT, MPPHY, RELOC, BRKPT, TSGEN, TSEXEC, VSWPFL 

. GLOBL CW*GDH, CW*BTH, CW*LGS, CW*FB, CW*FGJ, MSGBAS, RPRVEC 

. GLOBL CW*USR, CW*XM, CONFIG, CW*50H, JMPO, DTLX, USRBAS, WINBAS 

. GLOBL DATIML, DATIMH, RMON, C0NFG2, SG*ELG, SG*IOT, CSHBAS 

. GLOBL SG*PAR, SG*MTS, SO*MMU, SG*MTM, LTTPAR, LOKBAS, CSHVEC, LOKVEC 

. GLOBL SYSGEN, AUTHAN, AHEND, CLKRTI, TRP4, CW*PRO, TIOVEC 

. GLOBL TRPIO, TRP20, TRP24, EMTENT, TRP34, INIJMP, MHNSIZ 

. GLOBL TKIVAL, INRECV, OTRECV, INMXV, OTMXV, DHBFSZ, MXTYPE 

. GLOBL ZCLR, MXRBUF, MXDTR, INTMXl, *PHONE, LCDTYP, TIOBAS 

. GLOBL LDHBIB, LDHBIP, LDHB2B, CLVERS, CXTSIZ, CXTWDS, CXTPDR 

. GLOBL CLORSZ, TSXSIT, JM**SZ, VMXMON, MONFQH, CXTRMN, CXTBAS 

. GLOBL ILSW2, $NOIN, LSW3, MXLPR, CW*ESP, CLTOTL, RMNPDR, MA*SYS 

. GLOBL SFCB, SFCBND, SFCBFH, SFCBSZ, NSPLFL, NSPLBL, INTSTK, INTSND 

. GLOBL NFRESB, PVSPBL, VMXWIN, DW**SZ, LDVERS, CW*QBS 
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. GLOBL FC*LBN, VMLBLK. VMXSF* VMXSFC, FF**SZ, FW**SZ, SWPJOB, SWPPOS 

. GLOBL TSR, RBR. RDINT. LSTMX, SS, CHAIN, JSWLOC, MU*TXT, SLTSIZ 

. GLOBL NUMIOQ> FREIOQ, UMODE, FPTRAP, MXLNT, DI*LD, DI*CL, CLSTS 

. GLOBL FREPGS, lOQSIZ, SYUNIT, UMSYTP, DI*TT, CXTBUF, SSEND 

. GLOBL SYINDX, MONVEC, KMNBAS, SDANAM, VBUSTP, MINCTR 

. GLOBL NUMRDB, RDB, RDBEND, RT*SKP, RT*TOP, NLINES, SHRRCB, SHRRCN 

. GLOBL RT*BAS, UPMODE, SPLNB. CSHALC, NIOL, CHNSIZ, RC**SZ, VNGR 

. GLOBL UPAR6, UPDR6, RT«*SZ, VINABT, *DEAD. LSW6 

. GLOBL SYTIMH, SYSDAT, TRP250, ODTTRP> TRP 14, SYTIML 

. GLOBL DS*ABT, CL*ORB, CL*ORE, CL*ORG, CL*ORP, CL*ORA 

. GLOBL «TAB, *FORM, CO*TAB, CO*FF, CO*DEF, CL*EPS, CLEOFS 

. GLOBL CL*OPT, CL*STA, CL*ORS, LSTLIN, VCSHNB, CL*EPP, CL*EPN 

. GLOBL CCLSAV, SPLND, SDCB, SPLDEV, SPLANM, MIODBG 

. GLOBL SDNAME. SDCHAN, SDCBSZ, SPLDVN, DTYPE 

. GLOBL DS*NRD, DX*NMT, *8BIT, C0«8BT, UEXRTN, VUXIFL 

. GLOBL SPLBLK, SPLCHN, MVSIZ, MEMPAR, UEXINT, DX*NRD 

. GLOBL NMSNMB, SNMSHD. SB**SZ, PMSIZE, PMPAR 

. GLOBL NUMDCD, MEM256, LOKCSH, DC**SZ 

. GLOBL JCXPOS, MXJMEM, VDFMEM, DFJMEM. TK5VAL, TK3SVL 

. GLOBL VPAR6, lOTIMR, ERRLOG, VNFCSH, FC**SZ 

. GLOBL 0. ADR, 0. BLK, 0. PAR, 0. SIZ, VPAR5, KPAR5, DZOINT, DHOINT 

. GLOBL OVRADD, *0VRH, SYSMAP, MAPSYS, VSLEDT, LCLUNT 

. GLOBL UBUSMP, UMRADR, lOMAP, QBUS, UN I BUS, DX*NST 

. GLOBL DVFLAG, DX*DMA, RT*NAM, DS*DIR, LDDEVX, DS*VSZ 

. GLOBL INDSAV, INDDBL, INDTSV, INDDBS, DS*SFN 

. GLOBL SYNAME, UCLNAM, RSFBLK, VPLAS, SEGCHN 

. GLOBL MXJADR, *MEMSZ, PHYMEM, SG*TSX, CDX*DH 

. GLOBL CLHEAD, CLSIZE, CLDEVX, C. CSW, C. SBLK, C. DEVQ, CIDEVX 

. GLOBL VU*CL, VUCLMC, UKi|i*SZ, US**SZ, UC**SZ, UCLBLK, UCLDAT 

. GLOBL VLDSYS, VMXMSG, VMAXMC, MB**SZ, MR**SZ, CS*OPN, CS«ENT 

. GLOBL DX«MAP, MIOFLG, MI*SBP, MI*LNK, MIOBHD, VMIOSZ 

. GLOBL VMIOBF, MI**SZ, MW**SZ, MIONWB, MIOWHD, MW*LNK 

. GLOBL CSHSIZ, CSHBFP, CA*BLK, CA*DVU, CA*WCT, VMXMRB 

. GLOBL CA*UFL, CA*UBL, CA*HFL, CA*HBL, CA*HSH, NUMRDB 

. GLOBL SRTSIZ, SMRSIZ, CCBHD, CC**SZ, CDX*DZ, MF*LIN 

. GLOBL CDX*DL, HF*TSB, MH*SCR, LMXLN, HF*LIN, HF*RIE, HF*TIE 

. GLOBL MH«LPR, DM*CSR, MF*LE, DM*LSR, HF*MC, MF*CS, MF*CM 

. GLOBL CDX*VH, VH*CSR, VH*LPR, MH*PBR, VF*TIE, VF«RIE, VF$MR 

. GLOBL VF*LIN, VF*SC, VF*RE, VH*LCR, VHOINT, TTINCP 

. GLOBL *HARD, LOUTIR, LINIR, NEDCHR, CLOTIR, CLINCP, FSTIOL, LSTHL 

. GLOBL SYSVER, SYSUPD, DI*DU, DI*XL, DI*MU, CL*LIX 

. GLOBL CL*LEN, DI*PI, GENTOP 

. GLOBL LSW5, DX*NCA, KPAR6, CLKVEC 

Macros to enable and disable interrupts 



c 

c 
f 



. MACRO DISABL 
BIS #340, @#PSW 
. ENDM DISABL 



; Disable interrupts 



. MACRO 


ENABL 


BIC 


#340, @#PSW 


. ENDM 


ENABL 



Offsets in block of ODT REL file. 
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172 




000040 


STA 




= 


40 


173 




000042 


STK 


= 


42 


174 




000052 


RSZ 


= 


52 


175 




000056 


OSZ 


=: 


56 


176 




000060 


RID 


= 


60 


177 




000062 


RBD 


= 


62 


178 




001000 


ODTBAS 


» 


1000 


179 












180 






i Dat 


a areas 




181 












182 


000000 




AREA: 


. BLKW 


8. 


183 


000020 


000000 000000 


000000 NFSBLK 


. WORD 


0. 0, 0, 0, 0, J 




000026 


000000 000000 


000000 






184 


000034 


000000 


ODTFLG 


. WORD 





185 


000036 


000000 


ODTTOP 


. WORD 





186 


000040 


000000 


CCAFLG 


. WORD 





187 


000042 


000000 


CLKIOO 


. WORD 





188 


000044 


000000 


RTTRP4 


. WORD 





189 


000046 


000000 


RTMNVC 


. WORD 





190 


000050 




SAVBLK 


. BLKW 


5 


191 


000062 
000070 


075250 100020 
073376 


000000 TSXSAV 


. RAD50 


/SY TSX SAV/ 


192 


000072 
000100 


075250 100003 
073376 


051646 KMNNAM 


. RAD50 


/SY TSKMONSAV/ 


193 


000102 
000110 


075250 011504 
073376 


000000 CCLNAM 


. RAD50 


/SY CCL SAV/ 


194 


000112 
000120 


000000 000000 
000000 


000000 DSTBLK 


. WORD 


0, 0, 0, 


195 


000122 


000000 


XMVBAS 


. WORD 





196 


000124 


000000 


NMXHAN 


. WORD 





197 


000126 


000000 


HMAP: 


. WORD 





198 


000130 


000000 


FETDEV 


. WORD 





199 


000132 


000000 


TOPMEM 


. WORD 





200 


000134 


000000 


FMEMHI 


. WORD 


J 


201 


000136 


000000 


FMEMLO 


. WORD 


J 


202 


000140 


000000 


OVLBAS 


. WORD 


; 


203 


000142 


000000 


FILBLK 


. WORD 





204 


000144 


000000 


CURDEV 


. WORD 





205 


000146 


000000 


CURNAM 


. WORD 





206 


000150 


000000 


PROBUF 


. WORD 





207 


000152 


030066' 


WRKBUF 


. WORD 


INITOP 


208 


000154 


004000 


WRKSIZ 


. WORD 


2048. 


209 


000156 


052077 


R50MSG 


. RAD50 


/MSG/ 


210 


000160 


110466 


R50WIN 


. RAD50 


/WIN/ 


211 


000162 


046543 


R50L0K 


. RAD50 


/LOK/ 


212 


000164 


103112 


R50USR 


. RAD50 


/USR/ 


213 


000166 


012700 


R50CSH 


. RAD50 


/CSH/ 


214 


000170 


077167 


R50TI0 


. RAD50 


/TIO/ 


215 


000172 


100040 


R50TT 




. RAD50 


/TT / 


216 


000174 


075250 


R50SY 




. RAD50 


/SY / 


217 


000176 


045640 


R50LD 




. RAD50 


/LD / 


218 


000200 


062550 


R50PI 




. RAD50 


/PI / 


219 


000202 


012240 


R50CL 




. RAD50 


/CL / 


220 


000204 


012276 


R50CL0 


. RAD50 


/CLO/ 


221 


000206 


012305 


R50CL7 


. RAD50 


/CL7/ 


222 


000210 


013630 


R50C1: 


. RAD50 


/CI/ 


223 


000212 


013666 


R50CK 


3 


. RAD50 


/CIO/ 



PROGRAM START ADDRESS 

INITIAL STACK POINTER 

ROOT SIZE 

OVERLAY SIZE 

REL FILE ID 

DISPLACEMENT TO 1ST REL BLOCK 

BASE ADDRESS ODT WAS LINKED FOR 



i EXTENDED TO 6 WORDS FOR . CSTAT 



64-bi}te block # below high alloc memory 
64-byte block # above top of low alloc memory 
Start loading overlays over TSINIT from here 
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224 
225 
226 
227 
228 



229 

230 

231 

232 

233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 

250 
251 
252 
253 
254 
255 



000214 
000216 
000220 
000222 
000224 
000232 
000240 
000242 
000244 
000252 
000254 
000262 
000264 
000272 
000274 
000276 
000300 
000302 
000304 



013675 
105610 
046770 
057164 
100040 
012240 
000000 
000 
075250 
100020 
075250 
070524 
075250 
073376 
000000 
000000 
000000 
000000 
000000 



015270 
013630 

110 
114730 

075273 

035164 



075250 
062550 

000000 
057164 
000000 



000306 000000 



000001 



000310 
000316 
000320 



000326 



075250 
100020 
000000 



000 



062550 
000000 



000000 
000000 



R50C17: 

R50VM: 

R50LS: 

R500DT: 

SKPDEV: 



GTLIN: 
HANNAM: 

DDTBLK: 

INDNAM: 

RLBF: 

RLBFND 

ODTSTA 

MEMLIM 

HGENFL 



. RAD50 
. RAD50 
. RAD50 
. RAD50 



/C17/ 
/VM / 
/LS / 
/ODT/ 



RAD50 /TT DK SY CL CI PI 

BYTE 0,110 

RAD50 /SY XXX TSX/ 

RAD50 /SY SYSODTREL/ 

RAD50 /SY IND SAV/ 



WORD 
WORD 
WORD 
WORD 
WORD 











Initialization configuration word 
ICONFG: .WORD ; Initial i zat ion configuration word 

Flag bits in ICONFIG 
EXTLSI = 1 iQ-bus system with more than 256Kb 

Simulated shared run-time control block for PI handler 
PISRT: . RAD50 /SY PI TSX/ 
. WORD 0, 0, 
Byte data cells 




PPTERM: . BYTE 
. EVEN 



1 if printer port is T/S terminal 



TSINIT - 


- TSX s 


fcartup 


1 






2 






3 






4 






5 






6 






7 






8 






9 






10 






11 






12 






13 






14 






15 






16 






17 




000000 


18 




000001 


19 




000002 


20 




000003 


21 






22 






23 






24 






25 






26 






27 






28 






29 


000330 




30 


000330 




31 


000333 




32 


000336 




33 


000341 




34 
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The following tables are used to determine the minimum RT-11 monitor 
and update versions required for particular devices. 
There are three arguments for each handler definition: 

Arg 1 = Handler id code. 

Arg 2 == Minimum acceptable RT-11 version. 

Arg 3 = Minimum acceptable RT-11 update uiithin the version. 



DEVID, RTVERS, RTUPDT 

} ID code for device type 

j Minimum RT-11 version 

j Minimum update level uiithin version 



jHandler identification code 

; Minimum RT-11 version 

; Minimum update level within version 

iSize of handler version table entry 

Define minimum versions for various handlers 

**» Note RT-11 version update numbering system changed *#* 

**# at 5.2 so that the update number for 5.2 is lower »** 

*** than for 5. IC. See the CLVX entries below for #*» 

*** version and update correlations. #»* 

HVTBL: 





. MACRO HANVER 
. BYTE DEVID 
. BYTE RTVERS 
. BYTE RTUPDT 
. ENDM HANVER 


J Define offsets into 


f 

HV*ID 
HV*VER 
HV*UPD 
HV**SZ 



1 

2 
3 



HANVER 


DI*DU, 5. 


,0. 


iDU - 5/0 


<5. 0) 




HANVER 


DI*XL, 5. 


,2. 


i XL - 5/6 


<5. IB) 


i Fi xed 


HANVER 


DI*MU, 5. 


>4. 


iMU - 5/4 


(5. 4) 





for 5. 2 SCB 



HVEND: 



EVEN 





TSINIT - 


— TSX s 


tar tup 




1 








2 








3 








4 




000000 




5 




000002 




6 




000004 




7 








8 








9 








10 








11 








12 








13 


000342 






14 


000342 






15 


000346 






16 


000352 






17 


000356 






18 


000362 






19 


000366 






20 


000372 






21 


000376 






22 


000402 






23 


000406 






24 


000412 






25 


000416 






26 


000422 






27 


000426 






28 


000432 






29 


000436 






30 


000442 






31 


000446 






32 


000452 




1 


33 


000456 






34 


000462 






35 


000466 




€ 


36 


000472 






37 


000476 






38 


000502 






39 


000506 






40 


000512 






41 


000516 






42 


000522 






43 








44 








45 








46 








47 








48 








49 








50 








51 








52 








53 








54 








55 








56 








57 
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The folloujing table defines default control flags for certain devices. 



DV*NAM 
DV«FLG 
DV**SZ 



DVFLBS: 



MACRO 
RAD50 
WORD 
ENDM 



DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 
DEFFLG 







DEFFLG 
/ 'DEV/ 
FLAGS 
DEFFLG 



; RadSO name of device 
iFlags for device 
;Si2e of a table entry 



DEV, FLAGS 

i DV*NAM 
; DV*FLG 



<CR>> 
<CT>, 
<DB>. 
<DD>, 
<DL>, 

<:dm>, 
<:dp>, 
<:ds>, 
<dt>, 
<du>, 

<DW>, 
<DX>, 
<DY>, 
<DZ>, 
<FW>, 
<LP>, 
<LS>, 
<MM>, 
<MS>, 
<MT>, 
<MU>, 
<NL>, 
<PC>, 
<RF>, 
<RK>, 
<VM>, 
<XC>, 
<XL>. 



<DX*MPH> 

<DX*MPH> 

<DX*DMA ! DX*MPH> 

<DX*NHM> 

<DX*DMA ! DX*MPH i DX*IBH> 

<DX*DMA i DX*NHM> 

<DX*DMA> 

<DX*DMA> 

<DX*DMA> 

<DX*DMA ! DX«NHM ! DX*NST> 

<DX*MPH> 

<DX*MPH> 

<dx*dma .' dx«nhm> 
<:dx*mph> 

<DX*DMA> 

<DX*MPH> 

<DX*MPH> 

<DX*DMA!DX*MPH!DX*IBH> 

<DX*DMA ! DX*MPH ! DX*IBH> 

<DX*DMA ! DX*MPH ! DX*IBH> 

<DX*DMA ! DX*NHM ! DX*IBH ! DX«NST> 

<DX*MPH> 

<DX*MPH> 

<:dx*dma> 
<dx*dma!dx*mph> 
<dx*eba ♦ dx*nca ! dx*nhm> 

<DX*MPH> 
<DX*MPH> 



DVFLND: 



The following table specifies which version number is to be 
returned by CL in response to the XL/CL . SPFUN used by 
VTCDM to match it to the handler. 
The macro has 3 arguments: 

1. Minimum RT-11 version number where this CL version should be used. 

2. Minimum RT-11 update number where this CL version should be used. 

3. CL version number that starts with specified RT-11 version. 



. MACRO 


CLVX RTV, RTU, CLV 


. BYTE 


RTU, RTV 


. WORD 


CLV 


. ENDM 


CLVX 



I 



I 
i 



TSINIT - 


— TSX s 


tartup i 


58 






59 






60 


000522 




61 


000522 




62 


000526 




63 


000532 




64 


000536 




65 


000542 




66 


000546 




67 


000552 




68 


000556 




69 






70 






71 






72 






73 






74 






75 






76 






77 


000556 




78 


000556 


005 


79 


000560 


005 


SO 


000562 


005 


81 


000564 


005 


82 


000566 


005 


83 


000570 


005 


84 


000572 


005 


85 


000574 


000000 


86 






87 






88 






89 






90 






91 






92 






93 




000000 


94 




000002 


95 




000004 


96 




000006 


97 






98 




000031 


99 






100 


000576 




101 


001024 




102 


001024 


000576 ' 


103 






104 






105 






106 


001026 


012700 


107 


001030 


077167 


108 


001032 


046543 


109 


001034 
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Define CL versions based on RT-11 versions 



000 
001 
006 
035 
044 
002 
003 



CLVTBL: 














CLVX 


5, 1, 16. 


i Version 


5. 


1 




CLVX 


5, 6, 16. 


; Version 


5. 


IB 




CLVX 


5, 35, 16. 


} Version 


5. 


1 




CLVX 


5, 44, 16. 


i Version 


5. 


IC 




CLVX 


5,2, 17. 


i Version 


5. 


2 




CLVX 


5,3, 17. 


; Version 


5. 


3 




CLVX 


5,4, IS. 


i Version 


5. 


4 


CLVEND: 













RT~il v5. 4 changed the structure of the LD translation tables. 
The following table is used to determine which table format 
to return to LD spfun 372. 



Use original format for the following versions: 



i Version 5. 

; Version 5. 1 

; Version 5. IB 

} Version 5. 1 

; Version 5. IC 

; Version 5. 2 

; Version 5. 3 



ITBL: 








. BYTE 


5,0 




. BYTE 


5, 1 




. BYTE 


5,6 




. BYTE 


5,35 




. BYTE 


5, 44 




. BYTE 


5, 2 




. BYTE 


5,3 




. WORD 






The following data structures 
TSX-Plus overlays as they are 



are used to hold information about 
being initialized. 



Offsets in structure for each overlay 



OS«SIZ 
DS*FLe 
OS*OVL 
OS**SZ 

i 

MAXOVL 



O 

2 
4 
6 



Total space needed for overlay 
0==>Load into XM space, l===>over TSINIT 
Pointer to overlay table entry 
Size of each overlay entry 

Maximum number of system overlays 



25. 

0S*«SZ*MAXOVL 
OSTABL 
Table of system overlays that must be loaded over TSINIT 



OSTABL: . BLKB 
OSEND: 
OSLAST: . WORD 



Reserve room for table 

-Define end of table 

Pointer past last used entry in table 



LOWOVL: . RAD50 /CSH/ 

. RAD50 /TIO/ 

. RAD50 /LOK/ 

LOWEND: 



TSCASH 

TSTIO 

TSLOCK 

End of table 



4 





TSINIT - 

1 
2 
3 
4 


— TSX star 


tup ini 


tial iz 


MACRO V05. 04 i 


Monday 14- 












i Tex 


t messages 












/ 


. NLIST 




5 


001034 


077 


124 


123 


TSXHD: 


. ASCII 




6 


001044 


111 


156 


166 


BADLIN 


. ASCII 




7 


001123 


111 


156 


166 


BDVMSG 


. ASCII 




S 


001203 


114 


151 


156 


BDLMSe 


. ASCII 




9 


001215 


000 






CRLF: 


. BYTE 




10 


001216 


124 


123 


130 


REQMIS 


. ASCII 




11 


001265 


103 


141 


156 


BADOPN 


. ASCIZ 




12 


001323 


103 


141 


156 


RSFERR 


. ASCIZ 




13 


001365 


116 


165 


155 


CONSPC 


. ASCII 




14 


001433 


103 


141 


156 


BDSPOP 


. ASCII 




15 


001470 


111 


156 


163 


BOSF: 


. ASCIZ 




16 


001537 


103 


141 


156 


NOKMON 


. ASCIZ 




17 


001600 


103 


141 


156 


NOCCL: 


. ASCIZ 




IS 


001636 


103 


141 


156 


CFHMSG 


. ASCII 




19 


001700 


105 


162 


162 


ERHMSG 


. ASCII 




20 


001744 


111 


156 


166 


ERHNDV 


. ASCII 




21 


002016 


124 


123 


130 


TSXRUN 


. ASCIZ 




22 


002045 


110 


141 


156 


HSGER: 


. ASCII 




23 


002132 


103 


157 


155 


NOCLOK 


. ASCIZ 




24 


002220 


123 


171 


163 


NXMMSG 


. ASCIZ 




25 


002307 


123 


171 


163 


NEXMSG 


. ASCIZ 




26 


002407 


103 


141 


156 


NOODT: 


. ASCIZ 




27 


002452 


115 


141 


160 


HN2BIG 


. ASCII 




28 


002516 


105 


162 


162 


ODTRDM 


. ASCIZ 




29 


002557 


110 


141 


156 


NOSYDV 


. ASCIZ 




30 


002624 


107 


145 


156 


TOOBIG 


. ASCIZ 




31 


002666 


122 


145 


144 


REDUCE 


. ASCII 




32 


002717 


056 


040 


142 


BYTES: 


. ASCIZ 




33 


002727 


111 


156 


163 


PHSOVF 


. ASCIZ 




34 


003017 


103 


141 


156 


COSRT: 


. ASCII 




35 


003062 


103 


141 


156 


SVERR: 


. ASCIZ 




36 


003115 


111 


156 


163 


TSXSIZ 


. ASCIZ 




37 


003203 


105 


162 


162 


RDERR: 


. ASCIZ 




38 


003236 


111 


156 


163 


SRTOVF 


. ASCIZ 




39 


003326 


111 


156 


163 


CSHOVF 


. ASCIZ 




40 


003377 


103 


141 


156 


INDOPN 


. ASC I Z 




41 


003427 


103 


141 


156 


UCLOPN 


. ASCIZ 


i 


42 
43 
44 


003464 


040 


101 


102 


R50CHR 


. ASCII 
. EVEN 
. LIST 
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BEX 

/?TSX-F-/<200> 

'Invalid status register address for T/S line: '<200> 

'Invalid interrupt vector address for T/S line: '<200> 

/Line # = /<200> 



/TSX generation did not include device /<200> 

/Cannot open program swap file/ 

/Cannot open PLAS region suap file/ 

/Number of contiguous blocks needed = /<200> 

/Cannot open spooled device: /<200> 

/Insufficient disk space for spool file/ 

/Cannot find "SY: TSKMON. SAV" file/ 

/Cannot find "SY: CCL. SAV" file/ 

/Cannot find device handler file: /<200> 

/Error reading device handler file: /<200> 

/Invalid RT-11 version for device handler: /<200> 

/TSX is already running/ 

/Handler not generated with extended memory support: /<200> 

/Computer line time clock (50 or 60 Hz) is not working/ 

/System is not equipped with memory management hardware/ 

/System is not equipped with extended memory management hardware/ 

/Cannot locate "SY: SYSODT. REL" file/ 

/Mapped handler is larger than SKB: /<200> 

/Error on read of SYSODT rel file/ 

/Handler for SY device was not loaded/ 

/Generated TSX system is too large/ 

/Reduce size of TSGEN by /<200> 

/. bytes/ 

memory for generated system/ 

file: /<:200> 



/Insufficient total physical 

/Cannot open shared run-time 

/Cannot locate "SY: TSX. SAV"/ 

/Insufficient memory to load 

/Error reading "SY: TSX. SAV"/ 

/Insufficient memory to load 

/Insufficient memory space for data cache/ 

/Cannot open TSXIND file/ 

/Cannot open TSXUCL data file/ 

/ ABCDEFGHIJKLMNOPQRSTUVWXYZ*. *01234567S9/ 



BEX 



all mapped system regions/ 
all shared run-time systems/ 



< 
I 
I 
( 
I 
I 
i 
I 

€ 

I 

i 

€ 
€ 
i 

i 

€ 
I 
I 

I 
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003534 



003534 004737 004374 ' 



003540 012737 OOOOOOG OOOOOOG 



003546 
003554 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 

42 003560 

43 003564 

44 003570 

45 003574 

46 003576 

47 003602 

48 003606 

49 003612 

50 003614 

51 003616 

52 003622 

53 003624 

54 003630 

55 003632 

56 003634 

57 003640 



012777 
105037 



012702 
012700 
105737 
001004 
012702 
012700 
012701 
010221 
010021 
105737 
001411 
105737 
001006 
005200 
032700 
001402 



123456 
OOOOOOG 



OOOOOOG 



. SBTTL * * ♦ TSX Initialization * # » 

. SBTTL * » # Initialization taking over control from RT-11 * * * 

The initialization code from this point onward takes over 
control from RT-11. 

This code is placed at the front of TSINIT so that non-initialized 
data structures can be allocated over it. 

TAKOVR: 

Read in system overlays that go over TSINIT 

CALL INIOVL ; Read overlays over TSINIT 

Set pointer to monitor offset vector 

MOV #MONVEC. e#RMON ; SET POINTER TO MONVEC TABLE 

Initialize last word in interrupt stack area so ute won't report a 

stack overflow if an interrupt occurs. 

Set STKLVL to to cause INTEN not to switch to interrupt 

stack during initialization. 

MOV #123456. @ I NTSND ; Say stack has not overflowed 

CLRB STKLVL * Say we are already on interrupt stack 

If we are running on a Professional* disable its interrupts 



IF NE, PROASM 

TSTB PROFLG 
BEQ 7* 
CALL PRONOP 
BR 5* 

ENDC ; NE, PROASM 



i Are we running on a PRO? 

J Br if not on a PRO 

; Disable its interrupts 

t Ignore unexpected interrupts on PRO 



OOOOOOG 

000044 

OOOOOOG 

OOOOOOG 

000340 

000120 



OOOOOOG 
OOOOOOG 

000020 



Set up vectors to catch unexpected interrupts 

Note: We encode the interrupt vector address in the PS — 

the low-order two bits of the address are dropped <they are 

always zero) and the remainder of the address is encoded in the 

PS fields priority (high-order 3 bits) and n-z-v-c (low-order 4 bits). 

SEND UNEXPECTED INTERRUPTS TO THIS ROUTINE 

120 ENCODED IN PS FIELDS 

ARE WE TO IGNORE UNEXPECTED INTERRUPTS? 

BR IF NOT 

ROUTINE TO GO TO TO IGNORE INTERRUPT 

SET PR I 0=7 IN PS 

IN IT ALL VECTORS STARTING AT 120 

SET PC FOR INTERRUPT 

SET PS FOR INTERRUPT (ENCODED ADDRESS VALUE) 

ARE WE TO IGNORE UNEXPECTED I NTS? 

BR IF YES 

IS THIS A PRO? 

BR IF YES 

ADVANCE ENCODED ADDRESS 

DID WE CARRY INTO "T" -FIELD? 

BR IF NOT 



7*: 


MOV 


#UEXINT, R2 




MOV 


#44. RO 




TSTB 


VUXIFL 




BNE 


10* 


5*: 


MOV 


#UEXRTN> R2 




MOV 


#340. RO 


10*: 


MOV 


#120, Rl 


1$: 


MOV 


R2. (Rl) + 




MOV 


RO, (Rl) + 


6*: 


TSTB 


VUXIFL 




BEQ 


2* 




TSTB 


PROFLG 




BNE 


2* 




INC 


RO 




BIT 


#20, RO 




BEG 


2* 



TSINIT — TSX startup initializ MACRO V05. 04 Monday 14-Dec-87 08:35 
* * # Initialization taking over control from RT-11 * # * 



2*: 



58 


003642 


062700 


000020 


59 


003646 


020127 


000420 J 


60 


003652 


103757 




61 


003654 


010237 


000060 


62 


003660 


012737 


000014 000062 


63 


003666 


010237 


000064 


64 


003672 


012737 


000015 000066 


65 








66 








67 








68 








69 








70 


003700 


012700 


000340 J 


71 


003704 


012737 


OOOOOOS OOOOOOG 


72 


003712 


010037 


000002G 


73 








74 








75 








76 


003716 


005001 




17 


003720 


012721 


000137 


78 


003724 


012721 


OOOOOOG 


79 


003730 


012721 


OOOOOOG 


SO 


003734 


005021 




81 


003736 


012721 


OOOOOOG 


82 


003742 


005021 




83 


003744 


012721 


OOOOOOG 


84 


003750 


010021 




85 


003752 


012721 


OOOOOOG 


86 


003756 


005021 




87 


003760 


012721 


OOOOOOG 


88 


003764 


010021 




89 


003766 


012721 


OOOOOOG 


90 


003772 


005021 




91 


003774 


012721 


OOOOOOG 


92 


004000 


005021 




93 


004002 


012737 


OOOOOOG 000114 


94 


004010 


010037 


000116 


95 


004014 


012737 


OOOOOOG 000244 


96 


004022 


010037 


000246 


97 


004026 


012737 


OOOOOOG 000250 


98 


004034 


005037 


000252 


99 






> 


100 






i 


101 






\ 


102 


004040 


010546 




103 


004042 


012705 


<:iQi<:iCiQb 


104 


004046 


004737 


OOOOOOG 


105 


004052 


012605 




106 






\ 


107 






i 


108 






i 


109 


004054 


004737 


004732 ' 


110 






* 


111 






; 


112 






i 


113 


004060 


004737 


005350 ' 


114 






i 
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FORCE CARRY OUT OF T-FIELD AND INTO PR 10 FIELD 

DONE ALL INTERRUPT VECTORS OF INTEREST? 

BR IF NOT 

CATCH CONSOLE TERMINAL VECTOR TOO 

ENCODED 60 

i ENCODED 64 

Direct clock interrupt to a dummy RTI instruction to avoid it causing 
trouble during the initialization process when things aren't set up 
and ready to go. 

11*: MOV #340, RO i PRIORITY 7 PS 

MOV #CLKRTI,e#CLKVECi Send clock interrupt to RTI instruct for now 
MOV RO, @#CLKVEC+2 



ADD 


#20, RO 


CMP 


Rl,#420 


BLO 


1* 


MOV 


R2, @#60 


MOV 


#14, e#62 


MOV 


R2, @#64 


MOV 


#15, @#66 



Take over traps, EMT, BPT, etc. 



CLR Rl 

MOV #137, (Rl) + 

MOV #JMPO, (Rl) + 

MOV #TRP4, <R1)+ 

CLR (Rl)+ 

MOV #TRP10, (Rl)+ 

CLR <R1>+ 

MOV #TRP14, (Rl)+ 

MOV RO, (Rl> + 

MOV #TRP20, <Ri)+ 

CLR <R1)+ 

MOV #TRP24, <R1)+ 

MOV RO, (Rl) + 

MOV #EMTENT, <R1)+ 

CLR <R1)+ 

MOV #TRP34, <R1)+ 

CLR <R1)+ 

MOV #MEMPAR, e#114 

MOV RO, e#116 

MOV #FPTRAP, @#244 

MOV RO, @#246 

MOV #TRP250, e#250 

CLR @#252 



Start at location 
CJMP e#JMP03 ==> 
CATCH JUMPS TO LOCATION 
TRAP 4 

i TRAP 10 

i TRAP 14 (BREAKPOINTS) 

i lOT TRAP 

i POWER FAIL 

iEMT 

iTRAP 

i MEMORY PARITY TRAP 

i TRAP 244 — FLOATING POINT TRAP 

; Enter FPU trap at priority 7 

i TRAP 250 — MEMORY MANAGEMENT TRAP 



Initialize the system mapped region. 



MOV 


R5, -(SP) 


MOV 


#6, R5 


CALL 


MAPSYS 


MOV 


<SP)+, R5 



SAVE THE CURRENT CONTENTS OF R5 
INITIALIZE TO THE FIRST REGION 
CALL THE SYSTEM MAPPING ROUTINE 
RESTORE THE PREVIOUS CONTENTS OF R5 



Set up Unibus mapping if needed 



CALL 



SETUMP 



iSET UP UNIBUS MAPPING 



Initialize time-sharing lines. 



CALL 



LININI 



; INIT LINES & SET UP VECTORS 
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115 










116 










117 










118 


004064 


052737 


0000000 


OOOOOOG 


119 


004072 


105737 


0000000 




120 


004076 


001415 






121 


004100 


023727 


ooooooe 


010000 


122 


004106 


103411 






123 


004110 


052737 


OOOOOOG 


OOOOOOG 


124 


004116 


105737 


OOOOOOG 




125 


004122 


001403 






126 


004124 


052737 


OOOOOOG 


OOOOOOG 


127 










128 










129 










130 


004132 


013737 


OOOOOOG 


OOOOOOG 


131 


004140 


013702 


OOOOOOG 




132 


004144 


105022 






133 


004146 


020237 


OOOOOOG 




134 


004152 


103774 






135 


004154 


112712 


OOOOOOG 




136 










137 










138 










139 


004160 


004737 


005022 ' 




140 










141 










142 










143 










144 










145 










146 










147 










148 










149 










150 










151 










152 


004164 


013702 


OOOOOOG 




153 


004170 


012700 


123456 




154 


004174 


010022 






155 


004176 


020237 


OOOOOOG 




156 


004202 


103774 






157 


004204 


112737 


177777 


OOOOOOG 


158 










159 










160 










161 


004212 


000137 


OOOOOOG 




162 










163 










164 










165 


004216 


013737 


000042 ' 


OOOOOOG 


166 


004224 


013737 


000044 ' 


000004 


167 


004232 


013737 


000046 ' 


OOOOOOG 


168 


004240 









Enable memory management 

(The kernel-mode mapping registers are already set up) 



BIS 


#MMENBL, @#SROMMR 


TSTB 


SR3FLG 


BEQ 


4* 


CMP 


PHYMEM, #4096. 


BLO 


4* 


BIS 


#EMMAP, @#SR3MMR 


TSTB 


MEM256 


BEQ 


4* 


BIS 


#I0MAP,e#SR3MMR 



4*: 
8*: 



Turn on memory management 

Does machine have memory management reg 3? 

Br if register does not exist <no ext. mem. ) 

Does machine have at least 256Kb phys memory? 

Br if not 

Set extended memory on 

Will TSX-Plus use at least 256Kb? 

Br if not 

Turn on 22-bit memory management for I/O 

Initialize the memory allocation table 

> Map to memory allocation table 

; Point to 1st usei — page entry 

; Say page is free 

; Done all user pages? 

i Loop if not 

i Set flag marking start of system pages 

Set up I/O device interrupt vectors. 

CALL DEWEC i SET UP DEVICE INTERRUPT VECTORS 

If we are running on a Professional* initiailize the PI handler 



MOV 


MAPPAR, e#KPAR5 


MOV 


LOMAP, R2 


CLRB 


(R2) + 


CMP 


R2> HIMAP 


BLO 


8$ 


MOVE 


#MA*SYS* <R2) 



IF NE, PROASM 

TSTB PROFLG 
BEQ 3* 
CALL PROHAN 
CALL PIDVEN 
; NE, PROASM 



iAre ue running on a Professional? 

i Br if not 

j Initialize the PI handler 

;Make device table entry for PI 



. ENDC 

Initialize interrupt stack area 

3*: MOV INTSND, R2 /Point to base of stack area 

Get initialization value 
12*: MOV R0» (R2)+ ; Initialize the interrupt stack area 

Finished? 

Loop if not 

Say we are not running on interrupt stack 

Enter TSEXEC to complete initialization 

JMP INIJMP {ENTER INITIALIZATION ROUTINE IN TSEXEC 

Abort the initialization 



MOV 


INTSND, R2 


MOV 


#123456, RO 


MOV 


RO, (R2) + 


CMP 


R2, INTSTK 


BLO 


12$ 


MOVB 


#-l,STKLVL 



INISTP: MOV 
MOV 
MOV 

9$: .EXIT 



CLKIOO, @#CLKVEC i Restore RT-11 clock vector 
RTTRP4, e#4 /Restore trap 4 vector 
RTMNVC» @#RMON {Restore RT-11 monitor pointer 

{RETURN TO RT-11 



I 

€ 
I 
4 



TSINIT - 


— TSX s 


tartup initializ 


LODINI - 

1 
2 
3 


— Load 


a segmen 


t over T 








4 








5 








6 








7 








8 








9 


004242 


010146 




10 


004244 


010346 




11 


004246 


010446 




12 








13 








14 








15 


004250 


016201 


000004 


16 








17 








18 








19 


004254 


016204 


000000 


20 


004260 


072427 


000005 


21 


004264 


020461 


0000000 


22 


004270 


101402 




23 


004272 


016104 


0000000 


24 








25 








26 








27 


004276 


010503 




28 


004300 


072327 


000006 


29 


004304 






30 


004340 


103406 




31 








32 








33 








34 


004342 


010561 


ooooooe 


35 








36 








37 








38 


004346 


012604 




39 


004350 


012603 




40 


004352 


012601 




41 


004354 


000207 




42 








43 








44 








45 


004356 






46 


004364 






47 


004372 
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. SBTTL LODINI — Load a segment over TSINIT 

LODINI is called to read an overlay segment over TSINIT. 

Inputs: 
R2 == Pointer to OSTABL entry for segment to be loaded. 
R5 — 64-byte block # uthere segment is to be loaded. 



LODINI: MOV 
MOV 
MOV 



Rl, -<SP) 
R3, -<SP) 
R4, -(SP) 



Get pointer to linker-built overlay entry 

MOV 0S*0VL<R2>,R1 ; Get pointer to linker-built table 
Determine how much code to read from the segment 



MOV 0S*SIZ<R2),R4 

ASH #5, R4 

CMP R4, 0. SIZ<R1) 

BLOS 1* 

MOV 0. SIZ<R1),R4 

Read the segment into memory 



/Get # 64-byte blks allocated for segment 

i Convert to # uords 

; Compare with original segment code size 

» Br if segment was truncated by init 

i Get code si ze 



1*: 



MOV R5, R3 

ASH #6, R3 

. READW #AREA, #17, R3, R4, 0. BLK < R 1 ) 

BCS 10* i Br if error on read 



j Get 64-byte block # 

i Convert to byte address 



Store the physical address of the segment into the overlay descriptor 

MOV R5, 0. PAR<R1) j Remember physical address of segment 
Finished 



MOV 


<SP)+, R4 


MOV 


<SP)+, R3 


MOV 


<SP)+,R1 


RETURN 





Error on read 

10*: .PRINT #TSXHD 
.PRINT #RDERR 
. EXIT 



f 
< 
i 

i 
I 
f 

< 
I 

4 
C 

( 

4 
i 
4 
4 
4 
4 



TSINIT - 
INIOVL - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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004374 
004376 



004400 
004404 
004110 



004414 
004420 
004424 
004426 
004432 
004436 
004442 
004446 
004452 



004454 
004460 
004464 
004470 



004474 
004500 
004502 
004506 
004512 



004516 
004522 
004524 
004530 
004534 



004540 
004542 
004544 



010246 
010546 



013705 
072527 
042705 



012702 
005762 
001406 
004737 
004737 
066205 
062702 
020237 
103762 



013702 
072227 
012705 
004737 



013702 
001406 
072227 
012705 
004737 



013702 
001406 
072227 
012705 
004737 



012605 
012602 
000207 



000140 
177772 
176000 



000576 ' 
000002 

004604 ' 
004242 ' 
000000 
000006 
001024' 



OOOOOOG 
000006 
OOOOOOG 
004546 ' 



OOOOOOG 

000006 
OOOOOOG 
004546 ' 



OOOOOOG 

000006 
OOOOOOG 
004546 ' 



. SBTTL INIOVL — Load system overlays over TSINIT 

INIOVL is called to load into memory those system overlays that 
are to be placed over the TSINIT code. 

Inputs: 
Overlay segment information is in OSTABL. 



INIOVL: MOV 
MOV 



R2i -<SP) 
R5, -(SP) 



Initialize pointer to start of memory area for overlays 



MOV OVLBAS, R5 
ASH #-6, R5 
BIC #176000, R5 



; Start of area for overlays 

; Convert to 64-byte # 

iClear possible propagated sign bits 



1*: 



2*: 



MOV 


#OSTABL, R2 


TST 


0S*FLG<R2) 


BEQ 


2* 


CALL 


KEYSEG 


CALL 


LODINI 


ADD 


0S*SIZ<R2),R5 


ADD 


#OS**SZ, R2 


CMP 


R2, OSLAST 


BLO 


1* 



Begin loop to load each overlay that goes over TSINIT 

j Point to 1st overlay segment entry 

i Does this segment go over TSINIT? 

; Br if not 

i Remember base of some segments 

i Load the segment 

i Advance memory pointer 

i Point to entry for next segment 

i Finished all segments? 

i Loop if not 

Initialize entry point vector for TSTIOX segment 

iGet addr of base of TSTIOX 
i Convert to byte address 
i Point to entry point vector 
iSet up entry point vector 

Initialize entry point vector for TSCASH segment 

;Get addr of base of TSCASH 
; Br if TSCASH not loaded 
; Convert to byte address 
i Point to entry point vector 
i Set up entry point vector 

Initialize entry point vector for TSLOCK segment 



MOV 


TIOBAS, R2 


ASH 


#6, R2 


MOV 


#TIOVEC, R5 


CALL 


ENTVEC 



MOV 


CSHBAS, R2 


BEG 


3* 


ASH 


#6, R2 


MOV 


#CSHVEC. R5 


CALL 


ENTVEC 



3«: 



9*: 



MOV 


LOKBAS, R2 


BEQ 


9* 


ASH 


#6, R2 


MOV 


#LOKVEC, R5 


CALL 


ENTVEC 


Finished 




MOV 


<SP)+,R5 


MOV 


(SP)+, R2 


RETURN 





; Get addr of base of TSLOCK 
iBr if TSLOCK not loaded 
i Convert to byte address 
; Point to entry point vector 
i Set up entry point vector 
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ENTVEC — Set up entry point vector for overlay 



I 
i 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 

11 004546 

12 004550 

13 004552 

14 004554 

15 004556 

16 004562 

17 004564 
IS 004566 

19 004570 

20 004572 
21 

22 
23 

24 004574 

25 004576 

26 004600 

27 004602 



010246 
010446 
010546 
010204 
062704 
005722 
012415 
060225 
005715 
001774 



012605 
012604 
012602 
000207 



. SBTTL ENTVEC — Set up entry point vector for overlay 

ENTVEC is called to set up addresses in an entry point vector for 
overlay segments such as TSCASH that are loaded at addresses different 
from where they are linked. 

Inputs: 
R2 = Address of base of segment. 
R5 = Pointer to vector that is to be initialized (word uiith -1 terminates) 



ENTVEC: 



000004 



1*: 



MOV 
MOV 
MOV 
MOV 
ADD 
TST 
MOV 
ADD 
TST 
BEQ 



Finished 



MOV 
MOV 
MOV 
RETURN 



R2i-(SP) 
R4, -(SP) 
R5, -<SP) 
R2. R4 
#4. R4 
(R2) + 

<R4>+, <R5) 
R2, (R5) + 
<R5) 
1* 



(SP)+, R5 
(SP)+, R4 
<SP)+, R2 



Get addr of base of segment 

Point to start of vector in segment 

Get value to use to relocate offsets 

Get offset to entry point within segment 

Convert to absolute address 

Any more words to initialize? 

Br if yes 



i 
i 



TSINIT - 


— TSX s 


tartup initiaiiz 


KEYSEG - 

1 
2 
3 
4 
5 
6 
7 
8 
9 


— Remember memory posit 








10 


004604 


010446 




11 








12 








13 








14 


004606 


016200 


000004 


15 


004612 


016004 


OOOOOOG 


16 








17 








18 








19 


004616 


020437 


000156' 


20 


004622 


001003 




21 


004624 


010537 


OOOOOOG 


22 


004630 


000436 




23 


004632 


020437 


000160' 


24 


004636 


001003 




25 


004640 


010537 


OOOOOOG 


26 


004644 


000430 




27 


004646 


020437 


000164' 


28 


004652 


001003 




29 


004654 


010537 


OOOOOOG 


30 


004660 


000422 




31 


004662 


020437 


000162' 


32 


004666 


001003 




33 


004670 


010537 


OOOOOOG 


34 


004674 


000414 




35 


004676 


020437 


000166' 


36 


004702 


001003 




37 


004704 


010537 


OOOOOOG 


38 


004710 


000406 




39 


004712 


020437 


000170' 


40 


004716 


001003 




41 


004720 


010537 


OOOOOOG 


42 


004724 


000400 




43 








44 








45 








46 


004726 


012604 




47 


004730 


000207 
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system overlays 

. SBTTL KEYSEG — Remember memory position of system overlays 

; KEYSEG is called to remember the physical memory position of some 
; key system overlay segments. 

i 

i Inputs: 

i R2 = Pointer to segment entry in OSTABL overlay table. 

i R5 = Base 64-byte block physical memory for segment. 

KEYSEG: MOV R4, -<SP) 

i 

; Get the name of the segment out of the linker-built segment block 

> 

MOV 0S*0VL(R2),R0 ; Point to linker-built entry 
MOV 0. ADR<R0),R4 i Get the name of the segment 

i See if this is a segment uihose address we want to remember 

i 

i Is this the TSMSO segment? 

i Br if not 

i Remember base of TSMSG segment 

1*: CMP R4, R50WIN )Is this the TSWIN segment? 

; Br if not 

/Remember base of TSWIN segment 
BR 8$ 
3*: CMP R4, R50USR i Is this the TSUSR segment? 

; Br if not 

; Remember base of TSUSR segment 

4*: CMP R4, R50L0K ; Is this the TSLOCK segment? 

i Br if not 

{Remember base of TSLOCK segment 
BR 8* 
5*: CMP R4, R50CSH i Is this the TSCASH segment? 

} Br if not 

{Remember base of TSCASH segment 
BR 8* 
6*: CMP R4, R50TI0 ; Is this the TSTIOX segment? 

; Br if not 

i Remember base of module 



8*: 



CMP 


R4, R50MSG 


BNE 


1* 


MOV 


R5, MSGBAS 


BR 


8* 


CMP 


R4, R50WIN 


BNE 


3* 


MOV 


R5, W I NBAS 


BR 


8$ 


CMP 


R4, R50USR 


BNE 


4$ 


MOV 


R5, USRBAS 


BR 


8* 


CMP 


R4, R50L0K 


BNE 


5* 


MOV 


R5, LOKBAS 


BR 


8* 


CMP 


R4, R50CSH 


BNE 


6* 


MOV 


R5, CSHBAS 


BR 


8* 


CMP 


R4, R50TI0 


BNE 


8* 


MOV 


R5, T I DBAS 


BR 


8« 


Finished 




MOV 


(SP)+, R4 


RETURN 





TSINIT - 
KEYSEG - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
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— Remember memory position of system overlays 



004732 010246 

004734 010346 

004736 013746 000004 

004742 012737 005010' 000004 



004750 105737 0000000 
004754 001415 



004756 012705 OOOOOOG 

004762 005004 

004764 012700 000005 

004770 010425 

004772 005025 

004774 062704 020000 

005000 077005 



052737 OOOOOOG OOOOOOG 



005010 012637 000004 

005014 012605 

005016 012604 

005020 000207 



.IF NE. <PR0ASM-1> iAssemble for PDP-11 

. SBTTL SETUMP — Set up Unibus mapping if needed 



SETUMP is called to set up the Unibus map registers for 11/44 and 

11/70 systems which more than 256Kb of memory. 

If Unibus mapping is needed* the Unibus map registers # 0-4 are 

initialized for a 1-to-l mapping with the low 40Kb of memory 

so that I/O to system buffers in the low memory area can be done without 

having to do Unibus mapping. 



Outputs: 
UBUSMP : 

SETUMP : MOV 
MOV 
MOV 
MOV 



l==>Do Unibus mapping; 0==>Don't do Unibus mapping. 



R2, -<SP) 
R3, -(SP> 
@#4, -<SP) 
#9*, e#4 



i SAVE TRAP VECTOR 
; CATCH TRAPS 



See if this is a type of maching that needs unibus mapping 



TSTB 
BEG 



UBUSMP 
9* 



i Is UNIBUS mapping needed? 
; Br if not 



Unibus mapping is needed 

Load unibus map registers # 0-4 to point to low 48Kb of memory. 



2*: 



MOV #UMRADR, R5 

CLR R4 

MOV #5, RO 

1*: MOV R4, (R5) + 

CLR <R5)+ 

ADD #8192. ,R4 

SOB RO, 1* 



POINT TO CONTROL REGISTER FOR UNIBUS MAP 

START MAPPING TO BOTTOM OF MEMORY 

LOAD 5 MAP REGISTERS 

SET LOW-ORDER VALUE IN MAP REGISTER 

CLEAR HIGH-ORDER VALUE IN MAP REGISTER 

ADVANCE MEMORY ADDRESS 

LOOP IF MORE MAP REGISTERS TO LOAD 



Turn on Unibus mapping 

BIS #I0MAP,@#SR3MMR ; ENABLE UNIBUS MAPPING 



Finished 



9*: 



MOV 
MOV 
MOV 

RETURN 
. IFF 



<SP)+, e#4 
(SP)+, R5 
(SP>+, R4 



; RESTORE TRAP VECTOR 



J NEi <PR0ASM-1> i Following code for Pro-only assembly 

Define dummy SETUMP routine for Pro 

SETUMP: RETURN 

. ENDC ; NE, <PR0ASM-1> 



TSINIT -- TSX s 


tartup initializ 


DEWEC — Set «j 


p device 


vectors 


1 
2 






3 






4 






5 






6 005022 


010146 




7 005024 


010346 




8 005026 


010546 




9 005030 


013746 


OOOOOOG 


10 






11 






12 






13 005034 


012701 


000002 


14 005040 


016103 


0000000 


15 005044 


020327 


000006 


16 005050 


101436 




17 






IS 






19 






20 005052 


016100 


OOOOOOG 


21 005056 


001402 




22 005060 


010037 


ooooooe 


23 






24 






25 






26 005064 


005023 




27 005066 


005013 




2S 005070 


162703 


000010 


29 






30 






31 






32 005074 


005005 




33 005076 


005713 




34 005100 


001422 




35 005102 


002403 




36 005104 


004737 


005174' 


37 005110 


000416 




38 






39 






40 






41 005112 


012300 




42 005114 


006300 




43 005116 


060003 




44 005120 


005713 




45 005122 


002005 




46 005124 


005723 




47 005126 


012346 




48 005130 


004777 


OOOOOOG 


49 005134 


012605 




50 005136 


004737 


005174' 


51 005142 


005713 




52 005144 


003374 




53 






54 






55 






56 005146 


062701 


000002 


57 005152 


020137 


OOOOOOG 
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. SBTTL DEWEC — Set up device vectors 



DEWEC is called to set up device interrupt vectors for handlers 
that have been loaded. 



DEWEC : MOV 
MOV 
MOV 
MOV 



Rl, -<SP) 
R3, -<SP) 
R5, -(SP) 
@#KPAR5, -(SP) 



J Save PAR 5 mapping 
Begin loop to set up vectors for each device 



1*: 



MOV #2, Rl 

MOV HANENT(R1),R3 

CMP R3, #6 

BLOS 6* 



;Get index # of 1st device after TT 
; Get handler entry point address 
i Is this a real device? 
> Br if not 



See if uie need to map PAR 5 to this handler 



MOV HANPAR<R1).R0 

BEQ 2* 

MOV RO, e#KPAR5 



j Get PAR 5 base for this handler 
; Br if this is not a mapped handler 
i Map PAR 5 to the handler 



Clear CQE and LQE in handler header 



2*; 



CLR 
CLR 
SUB 



(R3) + 
<R3) 
#10, R3 



; Clear LQE <4th word in handler) 
i Clear CQE <5th mord in handler) 
i Point to 1st word of handler 



Set up interrupt vectors for this handler 



CLR 

TST 

BEQ 

BLT 

CALL 

BR 



R5 

<R3) 

6« 

5* 

SETVEC 

6* 



Multiple vectors. 



5$: MOV <R3)+, RO 

ASL RO 

ADD RO, R3 

TST (R3> 

BGE 7* 

TST <R3)+ 

MOV (R3)+, -<SP) 

CALL SRPRVEC 

MOV <SP)+, R5 

7*: CALL SETVEC 

TST (R3) 

BGT 7* 



i Assume vector base address is O 

i Any vectors to set up? 

; Br if no vectors to set up 

i Br if multiple-vector 

; Set up the vector 

; Finished 



Get offset to list of vector info 

Get byte offset to vector list 

Get absolute address of vector table 

Is this a PRO device with floating vectors? 

Br if not 

Point to word with device ID 

Get device ID 

Get base vector location for device 

This is base of vector locations 

Set up the vector 

Any more vectors to set up? 

Br if yes 



See if there are more devices to set up. 



6*: 



ADD #2, Rl 
CMP R1,NUMDEV 



; Advance device table index 
; More to do? 



NIT - 


— TSX s 


tartup initializ 


VEC - 


— Set u 


p device 


vectors 


58 


005156 


101730 




59 








60 








61 








62 


005160 


012637 


ooooooe 


63 


005164 


012605 




64 


005166 


012603 




65 


005170 


012601 




66 


005172 


000207 





I 
I 
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BLOS 

Finished 

MOV 
MOV 
MOV 
MOV 
RETURN 



1* 



(SP)+, e#KPAR5 
(SP)+,R5 
<SP)+, R3 
(SP)+,R1 



Br if yes 



I 

I 
< 
I 
< 
i 

( 
I 
I 

f 
I 

I 

i 
i 
i 
i 
i 
i 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 

21 005174 
22 
23 
24 
25 
26 
27 



005176 
005202 



29 
30 

31 005204 

32 005206 

33 005210 

34 005212 

35 005214 

36 005216 

37 005222 
38 

39 
40 
41 
42 
43 
44 
45 
46 

47 005224 

48 005230 

49 005232 

50 005234 

51 005236 

52 005242 

53 005246 

54 005252 

55 005256 

56 005262 

57 005266 



000032 
010446 



005761 
001010 



012300 
060500 
010310 
062320 
012310 
052710 
000450 



013704 
012300 
060500 
010420 
012724 
012724 
012724 
016124 
012724 
012724 
012724 



. SBTTL SETVEC — Set up an interrupt vector for a device 

SETVEC is called to set up one interrupt vector for a device. 

Inputs: 
Rl = Device index number. 
R3 = Pointer into device handler to 3 word cells: 

1. Address of interrupt vector. 

2. Offset to interrupt entry point in handler. 

3. PS for interrupt. 

R5 = Base address to add to vector locations. 

Outputs: 
R3 = Points beyond 3 word info block in handler. 

Size of interrupt catching routine compiled for interrupts to 
mapped handlers: 



MPIVSZ = 26. 

i 

SETVEC: MOV R4, -<SP) 

See if this is a mapped handler 



i Amt of code compiled for mapped ints 



ooooooe 



TST HANPAR(Rl) 
BNE 1* 



; Is this a mapped handler 
; Br if yes 



This is an unmapped handler. 

Vector interrupts directly to the handler. 



000340 



MOV (R3)+, RO 

ADD R5, RO 

MOV R3, (RO) 

ADD <R3)+, <R0)+ 

MOV (R3)+, <R0) 

BIS #340, (RO) 
BR 9* 



Get address of interrupt vector 
Add base address to vector location 
Store address of cell in handler 
Add offset to interrupt entry point 
Set PS for interrupt 
Make sure priority = 7 



This is a mapped handler. 

Vector the interrupt to a routine that performs the following functions: 

1. Save the current PAR 5 mapping. 

2. Map PAR 5 to the handler. 

3. Push a dummy PC and PS on stack that will send return from handler 
to a routine that will restore the PAR 5 mapping. 

4. Jump into the handler interrupt entry point. 



1*: 



013746 

OOOOOOG 

012737 

OOOOOOG 

OOOOOOG 

012746 

000340 



MOV XMVBAS. R4 

MOV (R3)+, RO 

ADD R5, RO 

MOV R4, (R0)+ 

MOV #013746> (R4)+ 

MOV #KPAR5, (R4) + 

MOV #012737, <R4)+ 

MOV HANPAR(Rl), (R4)' 

MOV #KPAR5, (R4)+ 

MOV #012746, (R4) + 

MOV #340, (R4) + 



Point to area where we store interrupt rtn 
Get address of interrupt vector 
Add base address to interrupt location 
Direct interrupt to our routine 
C MOV e#KPAR5, -(SP) 1 

C MOV #par5val,e#KPAR5 3 



C MOV #340, -(SP) 3 



I 

€ 



TSINIT • 
SETVEC ■ 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
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005272 012724 012746 

005276 012724 OOOOOOG 

005302 012724 000257 

005306 016314 000002 

005312 042714 177760 

005316 052724 000260 

005322 012724 000137 

005326 010314 

005330 062324 

005332 012310 

005334 052710 000340 



005340 010437 000122' 



MOV #012746, <R4)+ 

MOV #HANXIT, <R4)+ 

MOV #000257, (R4) + 

MOV 2<R3), (R4) 

BIC #^C17, (R4) 

BIS #260, (R4)+ 

MOV #000137, <R4)+ 

MOV R3, <R4> 

ADD (R3)+, (R4)+ 

MOV (R3)+, (RO) 

BIS #340, <R0) 



C MOV #HANXIT, -<SP) 3 

C CCC - Clear all condition codes 3 

C SEx - Set condition codes specified in PS3 



; E JMP @#handier_entry 1 

i Store address of int entry point 

; Set PS for interrupt entry 
jMake sure priority = 7 



005344 
005346 



012604 
000207 



9* 



Save address beyond end of compiled interrupt catcher routine 

MOV R4, XMVBAS i Save address beyond end of routine 

Finished 

MOV <SP)+, R4 
RETURN 
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€ 
I 



1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 



.IF NE, PROASM 

. SBTTL PIDVEN 



Make device table entry for PI device 



If we are running on a Professional computer* PIDVEN is called to 
make an entry in the device tables for the PI device. 



PIDVEN: MOV 



R1,-(SP) 



Increase number of defined devices and get device table entry index 
to use for the PI device. 



ADD #2, NUMDEV 
MOV NUMDEV, Rl 



i One more device 

; Get device table index 



Set up information about the PI device 



MOV 
MOV 
CLR 
CLR 
MOV 
MOV 

Finished 



R50PI, PNAME<R1) i Set device name 

#<DS*SFN!DI*PI>, DVSTAKRl) i Set device status flags 

DVFLAG(Rl) i Clear other flags 

DEVSIZ(R1> ; Clear device size 

#PIHAN+6, HANENT<Rl);Set handler entry point <4th word) 

#PR0SIZ,HANSIZ<R1) i Set handler size 



. ENDC 



MOV 

RETURN 

i NE, PROASM 



<SP)+,R1 



TSINIT -- 
SETVEC — 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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005350 
005352 
005354 
005356 
005360 



005362 
005366 
005372 
005400 
005402 
005410 
005412 
005420 



005422 
005426 
005432 
005436 
005440 
005442 
005444 
005446 
005450 
005452 
005454 
005456 



005460 
005464 
005470 



005472 
005476 
005500 
005506 
005510 
005516 
005520 
005524 
005526 
005532 



010146 
010246 
010346 
010446 
010546 



012701 
012704 
032761 
001027 
032761 
001423 
026127 
001017 



016105 
012702 
012703 
010100 
006300 
160002 
060100 
060003 
010225 
010425 
010325 
010425 



062701 
020127 
101740 



012701 
001423 
026127 
001412 
026127 
001003 
004737 
000405 
004737 
000402 



IF IME, <PR0ASM--1> ; If assembling for PDP-11 
SBTTL LININI — Initialize time-sharing lines 



LININI is called to initialize the time-sharing lines. 

This consists of setting up interrupt vectors and setting control 

flags in the status registers. 



LI 



NINI: MOV 
MOV 
MOV 
MOV 
MOV 



Rl, -(SP> 
R2, -<SP) 
R3, -(SP) 
R4, -(SP) 
R5i -(SP) 



Set up interrupt vectors for DLli lines 



000002 
000340 
OOOOOOS 

OOOOOOG 

OOOOOOG 



OOOOOOG 1*: 

OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 
177772G 



MOV 
MOV 
BIT 
BNE 
BIT 
BEQ 
CMP 
BNE 

DL-11 line 

MOV 
MOV 
MOV 
MOV 
ASL 
SUB 
ADD 
ADD 
MOV 
MOV 
MOV 
MOV 

Try next line 



#2#R1 j Index for 1st line 

#340, R4 i Priority 7 PS 

#*DEAD. LSW3(R1) ; Is this line uninstalled? 

S* i Br if yes 

#*HARD/ LSW3(R1 ) ; Is this line connected to hardware? 

8* J Br if not 

LCDTYP(Rl), #CDX$DL ; Is this a DLll line? 

8* ; Br if not 



INVEC(R1),R5 

#INRECV, R2 

#<aTRECV-6>. R3 

Rl, RO 

RO 

RO, R2 

R1,R0 

RO, R3 

R2, (R5) + 

R4, (R5) + 

R3, (R5) + 

R4, (R5) + 



000002 
OOOOOOG 



8$: 



ADD 


#2, Rl 


CMP 


R 1 , #LSTHL 


BLOS 


1* 



GET ADDRESS OF INPUT VECTOR 

END OF RECEIVING VECTOR 

START OF INPUT INTERRUPT ENTRY POINTS 

GET LINE NUMBER 

4 BYTES PER INPUT INTERRUPT ENTRY POINT 

GET ADDRESS OF INPUT INTERRUPT ENTRY POINT 

6 BYTES PER OUTPUT INTERRUPT ENTRY POINT 

GET ADDRESS OF OUTPUT INTERRUPT ENTRY POINT 

SET PC FOR INPUT INTERRUPT ENTRY POINT 

SET PS FOR INPUT INTERRUPT 

SET PC FOR OUTPUT INTERRUPT 

SET PS FOR OUTPUT INTERRUPT 



ADVANCE LINE INDEX NUMBER 
MORE TO DO? 
BR IF YES 



Initialize multiplexers. 



OOOOOOG 

OOOOOOG OOOOOOG 3* 

OOOOOOG OOOOOOG 

006270 ' 

006220 ' 2* 



SETMUX: MOV 
BE(3 
CMP 
BEQ 
CMP 
BNE 
CALL 
BR 

CALL 
BR 



#LSTMX,R1 iGet last mux index # 

SETLIN ; Br if there are no mux lines 

MXTYPE(R1),#CDX*DZ ; Is this a DZll, DHll, or DHVll? 

1* } Br if DZll 

MXTYPE(R1),#CDX*VH i Is this a DHVll? 

2* i Br if not 

VHINIT } Initialize a DHVll 

4* 

DHINIT ) Initialize a DHll 

4* 



TSINIT - 
LININI ■ 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 
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005534 
005540 
005544 



005546 
005552 
005560 
005562 
005570 
005572 
005600 
005602 
005610 
005614 
005620 
005622 
005626 
005630 
005634 



005636 
005642 



005644 
005650 



005652 
005656 
005662 
005666 



005670 
005674 
005676 
005700 
005704 
005706 
005712 
005714 



005720 
005724 



004737 
162701 
001355 



012701 
032761 
001057 
032761 
001453 
032761 
001403 
052761 
016105 
016100 
001423 
020527 
001411 
020527 
001403 



004737 
000426 



004737 
000423 



016102 
052702 
010270 
000414 



016102 
011203 
005012 
016102 
011203 
016102 
005012 
012712 



162701 
003312 



006030 ' 
000002 



1*: 

4*: 



CALL 

SUB 

BNE 



DZINIT 
#2, Rl 
3* 



i Initialize a DZli 
i More to enable? 
f Br if yes 



Enable all lines 



OOOOOOG SETLIN: 

OOOOOOG OOOOOOG 4*: 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 3«: 

OOOOOOG 

OOOOOOG 

OOOOOOG 



005742 ' 



006000 ' 



OOOOOOG 

017030 

OOOOOOG 



OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 

000002 



MOV 
BIT 
BNE 
BIT 
BEQ 
BIT 
BEQ 
BIS 
MOV 
MOV 
BEQ 
CMP 
BEG 
CMP 
BEQ 



DHll line 

CALL 
BR 

DHVll line 

7*: CALL 
BR 

DZ-11 line 

6*: MOV 
BIS 
MOV 
BR 

DL-11 line 

1*: MOV 
MOV 
CLR 
MOV 
MOV 
MOV 
CLR 
MOV 

Do next line 

2*: SUB 
BGT 

Finished 



#LSTHL, Rl 

#*DEAD, LSW3<R1) 

2* 

#*HARD. LSW3(R1) 

2« 

#*PHONE, ILSW2<R1 

3* 

#$NOIN. LSU3(R1> 

LCDTYP(R1),R5 

LMXNUM<R1),R0 

1* 

R5, #CDX*DZ 

6* 

R5, #CDX*VH 

7* 



DHLPRM 
2« 



VHLPRM 
2* 



LMXLN<R1), R2 
#017030, R2 
R2, @MXLPR<RO) 
2* 



TSR<R1),R2 

(R2>,R3 

<R2) 

RBR(R1)*R2 

<R2),R3 

RSR(R1).R2 

<R2) 

#RDINT, (R2) 



#2, Rl 
4* 



i INDEX # OF LAST REAL LINE 

J IS THIS LINE INSTALLED? 

J BR IF NOT 

; Is this line connected to hardware? 

! Br if not 

);IS THIS A DIAL-UP LINE? 

BR IF NOT 

IGNORE INPUT TILL DIAL UP OCCURS 

Get comm device type code 

IS THIS A DL-11 OR MUX LINE? 

BR IF DL-11 

Is this a DZll or DHll? 

Br if DZll 

Is this a DHll or DHVll? 

Br if DHVll 



;Set line parameters for DHll line 



Set line parameters for DHVll line 



; Get line # within mux group 
; Set line enable flags 
iEnable the line 



; ADDRESS OF TRANSMITTER STATUS REGISTER 
; CLEAR TRANSMITTER STATUS REGISTER 

ADDRESS OF RECEIVER BUFFER REGISTER 
CLEAR RECEIVER BUFFER REGISTER 
ADDRESS OF RECEIVER STATUS REGISTER 

} ENABLE RECEIVER INTERRUPTS 
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LININI — Initialize time-sharing lines 

115 005726 012605 MOV <SP)+>R5 

116 005730 012604 MOV (SP)+, R4 

117 005732 012603 MOV (SP)+, R3 
lis 005734 012602 MOV <SP)+, R2 

119 005736 012601 MOV <SP)+, Rl 

120 005740 000207 RETURN 



i 
I 



I 
I 

I 

4 
I 



TSINIT 
DHLPRM 
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— Set line parameters for a DHl 1 line 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



005742 



005742 016100 OOOOOOG 

005746 005760 OOOOOOG 

005752 001411 

005754 142770 0000000 OOOOOOG 

005762 156170 OOOOOOG OOOOOOG 

005770 012770 OOOOOOG OOOOOOG 



005776 000207 



. SBTTL DHLPRM — Set line parameters for a DHll line 

DHLPRM is called to set up the line parameters for a DHll line. 

Inputs: 
Rl = Physical line index number. 

DHLPRM: 

Enable DM11 for this line 



MOV 

TST 

BEQ 

BICB 

BISB 

MOV 

Finished 

2*: RETURN 



LMXNUM(R1),R0 

DM*CSR(RO) 

2* 



i Get mux index number 

/Does this DHll have DM11 modem control? 

i Br if not 

#MF*LIN, eDM$CSR<RO) i Clear line # field in DM11 CSR 
LMXLN<R1), eDM*CSR(RO)i Select line of interest 
#MF*LE, eDM*LSR<RO)i Enable the line 



TSINIT 
VHLPRM 
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— Set line parameter values for DHVll line 



I 
I 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 



006000 



006000 016100 OOOOOOG 

006004 042770 OOOOOOG OOOOOOG 

006012 156170 OOOOOOG OOOOOOG 

006020 012770 OOOOOOG OOOOOOG 



. SBTTL VHLPRM — Set line parameter values for DHVll line 

Set the line parameter values for a DHVll line. 

Inputs: 
Rl == Physical line index number. 

VHLPRM: 

Enable the line 



006026 000207 



MOV 
BIC 
BISB 
MOV 

Finished 

RETURN 



LMXNUM<R1)»R0 ; Get mux index number 

#VF*LINi eVH*CSR(RO) i Clear line # field in mux CSR 

LMXLN(Rl)* @VH«CSR(RO) ; Set our line # 

#<VF*RE>, eVH*LCR<RO) i Enable the line 



I 
I 
I 
I 
I 
I 
I 
i 
I 

€ 

i 

i 

< 

I 

I 

i 

i 

4 

I 

( 



TSINIT 
DZINIT 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 
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— Initialize a DZll multiplexer 

. SBTTL DZINIT — Initialize a DZll multiplexer 

DZINIT is called to initialize a DZll multiplexer. 

Inputs: 
Rl = Mux index number. 

DZINIT: 

See if this DZll is installed 



006030 



006030 005761 OOOOOOG 
006034 001416 



006036 004737 006074 ' 



TST 
BEQ 



MXCSR(Rl) 
4* 



i Is this DZ-11 installed? 
i Br if not 



Set up interrupt vector connections for this MUX 

CALL MUXVEC ; Set up interrupt vectors for this DZll 

Start up the mux operation 



006050 032771 OOOOOOG OOOOOOG 1*: 

006056 001374 

006060 017100 OOOOOOG 2*: 

006064 100775 

006066 105071 OOOOOOG 



BIS 
BIT 
BNE 
MOV 
BMI 
CLRB 



#ZCLR,eMXCSR<Rl);Do master clear on DZ-11 

#ZCLR,@MXCSR<R1>; Wait for clear to finish 

1* 

SMXRBUF<Rl)iRO i Clear silo 

2* 

@MXDTR(R1) J Disable all data sets 



006072 000207 



Finished 
4*: RETURN 



TSINIT 
MUXVEC - 

1 
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3 
4 
5 
6 
7 
8 
9 006074 

10 006076 

11 006100 
12 

13 
14 

15 006102 

16 006106 

17 006112 

18 006116 

19 006120 

20 006122 

21 006124 

22 006126 

23 006130 

24 006132 

25 006136 

26 006140 
27 

28 
29 
30 
31 
32 
33 
34 

35 006144 

36 006150 

37 006154 

38 006162 

39 006164 

40 006170 

41 006176 

42 006200 

43 006204 

44 006206 
45 

46 
47 

48 006210 

49 006212 

50 006214 

51 006216 



010246 
010346 
010546 



016105 
012702 
012703 
010100 
006300 
160002 
060100 
060003 
010225 
012725 
010325 
012715 



012723 
012700 
026127 
001410 
012700 
026127 
001402 
012700 
010023 
010113 



012605 
012603 
012602 
000207 



. SBTTL MUXVEC — Set up interrupt vectors for a multiplexer 

MUXVEC is called to set up the interrupt vector connections for 
a DZll, DHll, or DHVll multiplexer. 

Inputs: 
Rl = Mux index number. 



MUXVEC: MOV 
MOV 
MOV 



R2, -<SP) 
R3, -(SP) 
R5, -<SP) 



OOOOOOG 
OOOOOOG 
177772G 



000340 
000340 



Set interrupt vector for mux 

MOV MXVEC<R1),R5 

MOV #INMXV, R2 

MOV #<0TMXV-6>, R3 

MOV R 1 , RO 

ASL RO 

SUB RO, R2 

ADD R1,R0 

ADD RO, R3 

MOV R2, (R5) + 

MOV #340, <R5)+ 

MOV R3, <R5) + 

MOV #340, (R5) 



Get address of input interrupt vector 

End of receiving vector 

Output interrupt table 

Get mux index number 

4 bytes per line in input int table 

Get address of input entry point 

6 bytes per mux in output entry point table 

Get address of output int entry point 

Set PC for input interrupt 

Set PS for output interrupt 

Set PC for output interrupt 

Set PS for output interrupt 



Now store an instruction sequence of the form: 

JSR R5, @#interrupt__routine 
. WORD mux_index 

to catch mux output interrupts and vector them to the interrupt routine. 



004537 
OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 



1*: 



MOV 
MOV 
CMP 
BEQ 
MOV 
CMP 
BEQ 
MOV 
MOV 
MOV 

Finished 



9*: 



MOV 
MOV 
MOV 
RETURN 



#004537, <R3)+ i JSR R5, e#x 

#DZOINT, RO i Assume this is a DZll 

MXTYPE(R1),#CDX*DZ ils this a DZll? 

1* i Br if yes 

#VHOINT, RO ; Assume this is a DHVll 

MXTYPE(R1),#CDX*VH j Is this a DHVll? 

1* i Br if yes 

#DHOINT, RO ; Get interrupt routine for DHll's 

RO, (R3)+ ; Store address of interrupt routine 

Rl, (R3) i Store mux index number 



(SP>+, R5 
(SP)+, R3 
(SP)+, R2 



I 
I 



TSINIT 
DHINIT 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 

li 

12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
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. SBTTL DHINIT — Initialize a DHll multiplexer 

DHIIMIT is called to initialize a DHll multiplexer 

Inputs: 
Rl = Mux index number 

DHINIT: 

See if this DHll is installed 



006220 



006220 005761 OOOOOOG 
006224 001420 



006226 004737 006074 ' 



006232 012771 OOOOOOG OOOOOOG 
006240 032771 OOOOOOG OOOOOOG 1*: 
006246 001374 



006250 016100 OOOOOOG 

006254 001404 

006256 012710 OOOOOOG 

006262 052710 OOOOOOG 

006266 3*: 



TST MH*SCR<R1) 
BEQ 9* 



; Is this DHll installed? 
j Br if not 



Connect interrupt vector to DHll 

CALL MUXVEC i Set up interrupt vectors for DHll 

Clear the multiplexer 

MOV #HF*MC,eMH*SCR<Rl) i Set the master-clear flag 

BIT #HF*MC,@MH*SCR<R1) ;Wait for the master clear to be completed 

BNE 1* 

Clear the DM11 scanner 



MOV 
BEQ 
MOV 
BIS 



Finished 



DM*CSR<R1)>R0 i Is there an associated DM11? 



3* 

#MF*CS, <R0) 

#MF*CM, <R0) 



i Br if not 

i Clear the scanner 

iClear the multiplexer 



006266 

006266 000207 



9*: 



RETURN 



I 
i 
i 
i 
i 

I 
I 



TSINIT 
VHINIT 
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— Initialize a DHVll multiplexer 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 



006270 



006270 005761 0000000 
006274 001414 



006276 004737 006074 ' 



. SBTTL VHINIT — Initialize a DHVll multiplexer 

Perform initialization for a DHVll mux. 

Inputs: 
Rl = Mux index number. 

VHINIT: 

See if this DHVll is installed 



TST VH*CSR<R1) 
BEQ 9* 



; Is this DHVll installed? 
i Br if not 



i Connect interrupt vector to DHVll 

i 

CALL MUXVEC ; Set up interrupt vectors 

i 

J Clear the multiplexer 



006302 012771 0000000 0000000 
006310 032771 OOOOOOG 0000000 1*: 
006316 001374 



MOV #VF*MRi eVH*CSR<Rl) i Reset the multiplexer 
BIT #VF*MR, eVH*CSR<Rl) iWait for reset to finish 
BNE 1$ 



Clean out the FIFO buffer in the mux 



006320 017100 OOOOOOG 
006324 002775 



006326 000207 



>*: 



MOV 
BLT 



@MXRBUF<R1 >i RO ; Get contents of receiver buffer register 
2$ > Loop until RBUF empty 



Finished 
9*: RETURN 



TSINIT 
VHINIT 



f 
I 

i 
i 
I 
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Initialize a DHVll multiplexer 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 



End of code that can be omitted for Pro-only systems 
.IFF ; NEi <PR0ASM~1> ; Begin code for Pro only 



This code is assembled only for Pro systems. 
T/S line init routines for Pro only. 



LINCHK 
DHLPRM 
VHLPRM 
DZINIT 
MUXVEC 
DHINIT 
VHINIT 



RETURN 
LININI routine for Pro systems 



LININI: MOV 
MOV 



Rl, -(SP) 
#LSTLIN>R1 



1*: 



; Get # of last line 

Determine if this line is connected to hardware 

CALL LINTYP i Determine the type of this line 

BIT #*HARD, LSW3<R1 ) i Is this line connected to hardware? 
BEQ 2* i Br if not 



Call Pro line initialization routine 

CALL PROLIN ; Initialize Pro line 

Do some special init for phone lines 

BIT #*PHONE, ILSW2(Rl)i Is this a dialup line? 

BEQ 2* ;Br if not 

BIS #*NOIN, LSW3<R1) i Ignore input till dial up occurs 



Check next line 



2*: 



SUB 


#2iRl 


BGT 


1* 


Fini shed 




MOV 


(SP>+,R1 


RETURN 





> Get index # of next line 
; Loop if more lines to do 



End of Pro-only code 

. ENDC i NE, <:PR0ASM-1> 



I 
I 



TSINIT — TSX startup iriitializ 
LINTYP — Determine the type of 



1 
2 
3 
4 
5 
6 
7 

e 

9 006330 

10 006334 

11 006336 

12 006342 

13 006344 

14 006352 
15 

16 
17 

18 006354 

19 006360 

20 006364 

21 006372 

22 006400 
23 

24 
25 

26 006402 

27 006410 

28 006416 

29 006424 

30 006432 
31 

32 
33 
34 006440 



MACRO V05. 04 
a 1 ine 



Honday 14-Dec-S7 OS: 35 Page 



SBTTL LINTYP 



Determine the type of a line 



LINTYP is called to determine if the current line is a time-sharing line 
a CL line# or a non-harduiare connected line. 



Inputs: 
Rl = Line index number 



020127 
101422 
020127 
103004 
012761 
000432 



016100 
010160 
012761 
012761 
000414 



012761 
012761 
012761 
012761 
052761 



000207 



OOOOOOG LINTYP: CMP 

BLOS 

0000000 CMP 

BHIS 

177777 OOOOOOG MOV 

BR 



R1,#LSTPL 

1* 

R1,#FSTI0L 

2* 

#-l,LCLUNT<Rl) 

9* 



; Is this a time-sharing line? 

; Br if yes 

; Is this a CL line? 

i Br if yes 

i Say line not in use as a CL line 



OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



This is a CL line 

2«: MOV LCLUNT<R1).R0 i Get the CL unit index number 

MOV Rl, CL*LIX(R0) ; Say uihich line is assoc with this CL unit 

MOV #CL0TIR,L0UTIR(R1) i Set terminal output interrupt routine 

MOV #CLINCP,LINIR(R1) i Set terminal input interrupt routine 

BR 8* 

This is a time-sharing line 



177777 
177777 



OOOOOOG 
OOOOOOG 



1«: 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 8*: 



MOV 
MOV 
MOV 
MOV 
BIS 

Finished 



#-1, LCLUNT<Ri > i Say line is not in use as a CL unit 
#-liLXCL<Rl) jLine is not cross-connected to CL unit 
#NEDCHR> L0UTIR(R1 ) i Set terminal output interrupt routine 
#TTINCP, LINIR<R1 ) ; Set terminal input interrupt routine 
#*HARD; LSW3<R1 > jThis line is connected to hardware 



9«: 



RETURN 



i 
I 
I 
I 
« 

4 
I 

i 
i 
€ 
€ 

i 

i 
I 

< 

I 
I 



TSINIT — TSX startup initializ MACRO V05. 04 Monday 14-Dec-S7 08:35 Page 23 
* » # Initialization done with RT-11 running « «• «■ 



1 

2 

3 

4 

5 

& 

7 

e 006442 

9 
10 
11 

12 006442 013737 

13 006450 013737 

14 006456 013737 
15 
16 
17 
18 

19 006464 
20 
21 
22 

23 006504 
24 
25 
26 

27 006524 012700 

28 006530 162700 

29 006534 003422 

30 006536 010046 

31 006540 

32 006546 

33 006554 

34 006562 012600 

35 006564 004737 027746' 

36 006570 

37 006576 000137 
38 
39 
40 

41 006602 012701 

42 006606 012700 

43 006612 010021 

44 006614 020127 

45 006620 103774 

46 006622 010106 
47 

48 
49 

50 006624 

51 006632 012700 000242' 

52 006636 104375 

53 006640 103410 

54 006642 

55 006650 

56 006656 000137 004216' 

57 006662 



000004 000044 ' 
OOOOOOG 000046' 
OOOOOOG 000042' 



004216 



OOOOOOG 
123456 

OOOOOOG 



. SBTTL * * » Initialization done with RT-11 running * * * 

Initialization at start of execution of TSX. 

The initialization done in this section uses the running RT-11 system 
to perform functions for it. 

INITGO: 

Save some RT-11 pointers in case we abort the initialization 

MOV @#4, RTTRP4 ; Save trap 4 vector 

MOV @#RMON, RTMNVC i RT-11 monitor pointer 

MOV @#CLKVEC, CLKIOO ; Clock vector (defined in TSGEN at 100) 

Get the current time of day which we will use later to make sure 
the line time clock is working. 

. GTIM #AREA, #SYTIMH /Get the current time of day 

Trap ■■■"C for later test so we can restore clock vector 

. SCCA #AREA, #CCAFLG i Catch control-C 



> Get top of TSGEN 

iWill TSKMON have problems? 

i Continue if not 

; Save overflow size 

; Print error message 





i Check for 


TSGEN size overf 


OOOOOOG 


MOV 


#GENTOP, RO 


037776 


SUB 


#<40000-2>, RO 




BLE 


15* 




MOV 


RO. -(SP) 



.PRINT #TSXHD 

.PRINT #TOOBIG 

.PRINT #REDUCE 

MOV (SP)+, RO 

CALL PRTDEC 

.PRINT #BYTES 

JMP INISTP 



Initialize the system stack (below 1000) 



•Recover amount of overflow 



15*: MOV #SSEND, Rl 

MOV #123456, RO 

13*: MOV RO, (Rl) + 

CMP R1,#SS 

BLO 13* 

MOV R 1 . SP 



i Point to bottom of stack 

; Get initialization value 

j Initialize the stack 

; Reached top of the stack area7 

J Loop if not 

j Run on system stack 



Make sure we are not already running under TSX. 



1*: 



. SERR 




MOV 


#GTLIN, RO 


EMT 


375 


BCS 


1* 


. PRINT 


#TSXHD 


. PRINT 


#TSXRUN 


JMP 


INISTP 


. HERR 





DON'T DIE ON ERRORS 

TSX EMT TO GET LINE NUMBER 

TRY A TSX EMT 

BR IF NOT UNDER TSX 

ALREADY UNDER TSX 



; RENABLE FATAL ERRORS 



i 
4 
I 
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58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

73 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



006670 
006710 
006714 



006732 
006740 
006744 
006750 
006752 
006756 



006762 
006766 
007006 
007010 
007014 



007016 
007024 
007026 
007034 
007036 



007042 



007042 
007046 
007052 
007056 
007062 
007064 



007070 
007074 



005737 OOOOOOG 



010037 
020027 
101402 
012700 
010037 



160005 
010537 



032737 
001406 
023737 
001002 
005237 



012705 
004737 
004737 
020527 
103002 
012705 



001274 
010537 
062705 



000132' 
OOOOOOG 

OOOOOOG 
000302' 



012705 177776 



000046 



OOOOOOG OOOOOOG 
000510 000222' 
000034 ' 



000000 ' 
013006' 
013452' 
006442 ' 

006442 ' 



OOOOOOG 
000002 



Make sure this machine has memory management facilities. 



. TRPSET #AREA, #NOXM 
TST e#SROMMR 
. TRPSET #AREA, #0 



; CATCH TRAPS 

; TRY TO ACCESS MEMORY MANAGEMENT REGISTER 

> Release trap control 



Request all available memory from RT-11. 



3*: 



. SETTOP #-2 

MOV RO, TOPMEM 

CMP RO, #VPAR5 

BLOS 3* 

MOV #VPAR5, RO 

MOV RO, MEMLIM 



REQUEST ALL AVAILABLE MEMORY 

REMEMBER WHERE TOP OF MEMORY IS 

TSX CANNOT EXTEND ABOVE PARS BASE ADDRESS 

BR IF RT-11 IS BELOW THAT 

SET PARS BASE AS UPPER LIMIT ON TSX SIZE 

TSX MAY NOT EXCEED THIS UPPER LIMIT 



Lock USR in memory for speed 

<Set USR to swap over TSEMT to get out of the way) 



5*: 



GET THE BASE OF TSINIT 

GET SIZE OF RT-11 USR MODULE 

ALLOCATE SPACE BELOW TSINIT FOR USR 

SET USR TO SWAP OVER TSEMT 

LOCK USR IN MEMORY 



Determine if we are to run system with the system debugger 



MOV 


#TSINIT-2, R5 


. GVAL 


#AREA, #374 


SUB 


RO, R5 


MOV 


R5. @#46 


. LOCK 





BIT #CHA I N, e# JSWLOC 

BEQ 10* 

CMP e#S10, R500DT 

BNE 10* 

INC ODTFLG 



WERE WE CHAINED TO? 

BR IF NOT 

SHOULD WE RUN UNDER ODT? 

BR IF NOT 

SET FLAG SAYING DEBUGGER WANTED 



Call Pro TSX initialization only if assembling for the Pro 
Jump to INISTP if checking fails. 



10*: 
. IF 



NE, PROCID 
CALL INSCHK 
;NE, PROCID 



; *# Do if assembling for pro only #« 

i PERFORM VERIFICATION AND DECRYPTION FOR PRO 



ENDC 

Allocate non-initialized buffer space over TSINIT. 

Allocate buffer space over TSINIT 

Do allocation 

Allocate silo buffers for lines 

Are we beyond code that takes over control? 

Br if yes 

Advance up to initial code 

Allocate the interrupt stack over TSINIT 

If we are running on a Pro, allocate buffer for the PI handler 

initialization code over the interrupt stack area. 



MOV 


#TSINIT, R5 


CALL 


ALOCBF 


CALL 


ALCSLO 


CMP 


R5. #INITGO 


BHIS 


12* 


MOV 


ttlNITOO, RS 



PIINSZ = 
12*: MOV 
ADD 



700. 

R5, INTSND 

#2, R5 



i Space needed for PI init code 

iPtr to base of interrupt stack 

; Always leave last word of stack for flag val 
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OOOOOOG 
OOOOOOG 000370 



115 007100 013701 

116 007104 032761 

117 007112 001407 

118 007114 105237 OOOOOOG 

119 007120 010537 000150' 

120 007124 062705 001274 

121 007130 000402 

122 007132 062705 OOOOOOG 

123 007136 010537 OOOOOOG 
124 

125 

126 

127 007142 004737 023402' 

128 

129 

130 

131 

132 007146 020527 030066' 

133 007152 103002 

134 007154 012705 030066' 
135 

136 

137 

138 007160 004737 010266' 

139 

140 

141 

142 007164 004737 010322' 

143 

144 

145 

146 

147 007170 005737 000034' 

148 007174 001402 

149 007176 004737 026306' 
150 

151 

152 

153 

154 

155 007202 004737 016512' 

156 

157 

158 

159 007206 013701 OOOOOOG 

160 007212 016102 000300 

161 007216 042702 OOOOOOC 

162 007222 052702 OOOOOOC 

163 007226 010237 OOOOOOG 
164 

165 007232 016137 000370 OOOOOOG 

166 007240 052737 OOOOOOG OOOOOOG 

167 007246 123727 OOOOOOG OOOOOOG 

168 007254 001003 

169 007256 052737 OOOOOOG OOOOOOG 
170 

171 007264 016102 000372 





MOV 


e#RMON, Rl 




BIT 


#CW*PRO, 37 




BEQ 


11* 




INCB 


PROFLG 




MOV 


R5. PROBUF 




ADD 


#PIINSZ,R5 




BR 


14* 


1*: 


ADD 


#INTSSZ,R5 


4$: 


MOV 


R5/ INTSTK 



CMP 


R5, #INITOP 


BHIS 


4* 


MOV 


#INIT0P,R5 



i Get pointer to RT-11 RMON base 
#CW*PRO, 370(R1) ; Are uie running on a PRO? 

; Br if not 

; Set flag saying this is a PRO-350 
» Save pointer to buffer area 
j Allocate space for buffer 

{Allocate space for interrupt stack 
; Address of top of interrupt stack 

Allocate space for those overlays that go over TSINIT 

CALL OVLPOS /Determine houj much space to alloc for overlay 

Note: from this point onward we are carrying the address of the 
base of the free memory area in R5. 

; Have we allocated up to top of TSINIT? 

; Br if yes 

/Advance to top of TSINIT 

i 

i Allocate a 2048. byte work buffer 

4*: CALL ALCWRK i Allocate work buffer 

i Allocate empty Region Control Blocks for use by handlers 
CALL ALCHRB 

i 

i If we were started in debug mode* load ODT. 
/ 

/Don't allow ODT for production PRO version 

/Are we to load system debugger? 

/ Br if not 

/ Load ODT and start it 

/ Initialize memory management registers for 1-to-l mapping but 

i leave memory management turned off 

/ 

2*: CALL MEMINI /Initialize memory management 

/ 

/ Extract information from RT-il configuration and sysgen words. 

i 

MOV @#RM0N/R1 /GET POINTER TO BASE OF RMON 
MOV 300<R1)/R2 /GET RT-11 CONFIGURATION WORD 
BIC #CW*GDH+CW*BTH+CW*LGS/ R2 j RESET A FEW FLAGS 
BIS #CW*FB+CW*FGJ+CW*USR+CW*XM, R2 ; SET A FEW FLAGS 
MOV R2/ CONFIG ; INITIALIZE OUR CONFIGURATION WORD 

/ Now get extended conf igutation word. 

MOV 370<R1)/C0NFG2 / EXTENDED CONFIGURATION WORD 
BIS #CW*ESP/ C0NFG2 i SET EXIT NO SWAP FLAG 
CMPB VBUSTP/#QBUS ; Is this a Q-bus machine? 
BNE 25* ; Br if not 

BIS #CW*QBS/ C0NFG2 i Set QBUS flag 

/ And sysgen option word. 

25*: MOV 372<R1>/R2 



. IF 


EQ/PROCID 


TST 


ODTFLG 


BEQ 


2* 


CALL 


GETODT 


. ENDC 


/EQ/PROCID 
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172 007270 

173 007274 

174 007300 
175 

176 007304 

177 007324 



042702 
052702 
010237 



OOOOOOC 
OOOOOOC 
OOOOOOG 



BIC #SG*ELG+SG*PAR+SG*MTS, R2 

BIS #SG*MMU+SG*MTM+SG* I OT+SG*TSX , R2 

MOV R2.SYSGEN i INITIALIZE OUR SYSGEN WORD 



Get system version number 



010037 OOOOOOG 



. GVAL 
MOV 



#AREA, #276 
RO, SYSVER 



; GET RT~11 SYSTEM VERSION NUMBER 
i SET AS TSX-PLUS VERSION NUMBER 
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I 
i 
I 



007330 
007336 



1 
2 
3 
4 
5 
6 
7 
8 
9 

10 007340 

11 007346 

12 007354 

13 007362 

14 007370 

15 007374 
16 

17 
18 

19 007376 

20 007404 

21 007412 

22 007420 

23 007426 
24 

25 
26 

27 007432 

28 007436 

29 007440 

30 007444 
31 

32 

33 

34 007450 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 007454 

48 007462 

49 007470 

50 007474 

51 007500 

52 007506 
53 

54 
55 

56 007512 

57 007520 



032737 
001017 



012737 
012737 
012737 
012737 
012700 
000416 



012737 
012737 
012737 
012737 
012700 



012702 
070200 
010237 
010337 



013737 
012737 
005037 
005037 
012737 
005037 



012737 
105737 



Set up a few clock constants based on clock frequency. 
See if we have a 50 or 60 Hz clock 



OOOOOOG OOOOOOG 



000074 
000036 
000264 
000006 
001130 



000062 
000031 
000226 
000005 
000764 



020700 

ooooooe 

OOOOOOG 



004737 010376' 



000172' 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000002 

OOOOOOG 



177777 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



INICLK: BIT 
BNE 

60 Hz clock 

MOV 
MOV 
MOV 
MOV 
MOV 
BR 

50 Hz clock 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



2*: 



MOV 
MOV 
MOV 
MOV 
MOV 



#CW*50H- CONFIG 



#60. , TKISEC 
#30. , TK5VAL 
#180. ,TK3SVL 
#6. , TKIVAL 
#600. , RO 
8« 



#50. , TKISEC 
#25. , TK5VAL 
#150. ,TK3SVL 
#5. , TKIVAL 
#500. , RO 



i 50 or 60 Hz clock? 
;Br if 50 Hz 



Clock ticks per 1 second 
Clock ticks per 0.5 seconds 
Clock ticks per 3 seconds 
Clock ticks per 0.1 seconds 
Get # clock ticks per 10 seconds 



Clock ticks per 1 second 
Clock ticks per 0.5 seconds 
Clock ticks per 3 seconds 
Clock ticks per 0. 1 seconds 
Get # clock ticks per 10 seconds 



Set number of clock ticks per day 



8*: 



MOV 
MUL 
MOV 
MOV 



#8640. , R2 
RO, R2 
R2, DATIMH 
R3, DAT I ML 



Do a fast check to maki 
CKLIN: CALL LINCHK 



i <# seconds per day) / 10. 
; Get # clock ticks per day 
i High-order value 
iLoui-order value 

sure specified T/S line addresses are ok. 

i CHECK T/S LINE ADDRESSES 



Do PRO-350 system initialization 



IF NE, PROASM 

BIT #CW*PRO, C0NFG2 

BEQ INIDEV 

CALL PROINI 

MOV #PIDRIV, PIDPTR 

i NE. PROASM 



i Are u>e running on a PRD-350? 

; Br if not 

i Do PRO-350 initialization 

i Set up pointer to clock driven PI routine 



. ENDC 

Make entry in device handler table for TT device. 



OOOOOOG 
OOOOOOG 



OOOOOOG 



INIDEV: MOV 
MOV 
CLR 
CLR 
MOV 
CLR 



R50TT, PNAME 

#DI*TT, DVSTAT 

DVFLAG 

DEVSIZ 

#2, HANENT 

NUMDEV 



; PERMANENT NAME "TT" 

jSET DEVICE STATUS FLAGS FOR TT 



;SET UP HANENT SO HANDLER LOOKS RESIDENT 
; IT IS DEVICE # 



Make device table entry for LD (logical disk) device 



OOOOOOG 



MOV #-l,LDDEVX 
TSTB VLDSYS 



J ASSUME LD SUPPORT NOT WANTED 
; IS LD SUPPORT OENNED IN? 
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6*: 



58 007524 001427 

59 007526 062737 000002 OOOOOOG 

60 007534 013701 OOOOOOG 

61 007540 010137 OOOOOOG 

62 007544 013761 000176' OOOOOOG 

63 007552 012761 OOOOOOC OOOOOOG 

64 007560 012761 OOOOOOG OOOOOOG 

65 007566 005061 OOOOOOG 

66 007572 012761 000002 OOOOOOG 

67 007600 004737 015312' 
68 
69 
70 

71 007604 005727 OOOOOOG 

72 007610 001402 

73 007612 004737 014572' 
74 
75 
76 

77 007616 012737 000002 000000 8*: 

78 007624 005037 OOOOOOG 

79 007630 032737 OOOOOOG OOOOOOG 
SO 007636 001402 

81 007640 005037 000230 
82 
83 
84 

85 007644 004737 017700' 
86 
87 
88 

89 007650 004737 016616' 
90 
91 
92 

93 007654 004737 017230' 
94 
95 
96 

97 007660 004737 017766' 
98 
99 
100 

101 007664 010537 000122' 

102 007670 013701 000124' 

103 007674 006301 

104 007676 062701 OOOOOOG 

105 007702 070127 000032 

106 007706 060105 
107 
108 
109 

110 007710 004737 027316' 
111 
112 
113 
114 007714 004737 014270' 



BEQ 
ADD 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
MOV 
CALL 



i BR IF NOT 

i ONE MORE DEVICE 

;GET DEVICE TABLE INDEX 

; REMEMBER INDEX NUMBER FOR LD DEVICE 

i SET DEVICE NAME <"LD") 
#<DS*DIR+DS*SFN+DS*VSZ+DI*LD>, DVSTAT<R1);SET DEV STATUS FLAGS 
#DX*EBA, DVFLAGtRl ); Say buffers must be on even byte boundaries 
DEVSIZ(Rl) 

#2, HANENT(Rl) i SAY HANDLER IS RESIDENT 
LDINIT i DETERMINE LD TRANSLATION TABLE FORMAT 



6* 

#2, NUMDEV 

NUMDEV, Rl 

R 1 , LDDEVX 

R50LD, PNAME<R1) 



Make device table entry for CL (communications line) device 

i Are there any communications lines? 

i Br if not 

i Initialize CL handler 



TST 


#CLTOTL 


BEG 


8$ 


CALL 


CLINIT 



Disable clock interrupts. 

MOV #2, @#0 

CLR @#CLKVEC 

BIT #CW*PRO, C0NFG2 

BEQ 1* 

CLR @#230 



LOAD RTI IN LOCATION 
ATTACH CLOCK INTERRUPT TO 
ARE WE RUNNING ON A PRO? 
BR IF NOT 
380 CLOCK INTERRUPT VECTOR 



Set up memory parity control 
1*: CALL PARSET i SET UP MEMORY PARITY CONTROL 

Determine how much memory is installed on machine 

CALL MEMTST » FIND OUT HOW MUCH PHYSICAL MEMORY THERE IS 

Set up information about the size of the job context area 

CALL CXTALC ; Determine size of job context area 

Load TSX-Plus device handlers that go in low memory 

CALL 6ETHNL ; Load low memory handlers 

for interrupt vector intercept routines for mapped handlers 



Reserve spaci 

MOV 
MOV 
ASL 
ADD 
MUL 
ADD 



R5, XMVBAS 
NMXHAN, Rl 
Rl 

#NXIVMH, Rl 
#MPIVSZ,R1 
R1,R5 



i Save address of base of area for XM vectors 
j Get # mapped handlers 

i Reserve room for 2 interrupts per handler 
/Add # requested extra interrupt vectors 
iCalc space needed for interrupt entry code 
j Advance the address of free memory 



Set up device index number and unit number for "SY: " device. 

CALL SETSY J SET UP INFO ABOUT SY DEVICE 

Open channel to TSKMON and set up information about it. 

CALL OPNKMN ; OPEN CHANNEL TO TSKMON 
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115 

116 

117 

lis 007720 004737 015372' 

119 

120 

121 

122 007724 004737 016134' 

123 

124 

125 

126 007730 013737 0000000 OOOOOOG 

127 

128 

129 

130 007736 004737 011656' 

131 

132 

133 

134 007742 105737 OOOOOOG 

135 007746 001402 

136 007750 004737 010720' 
137 

138 

139 

140 007754 004737 011352' 

141 

142 

143 

144 007760 004737 023160' 

145 

146 

147 

148 007764 010500 

149 007766 004737 027622' 
150 

151 
152 
153 

154 007772 010537 OOOOOOG 

155 007776 062705 000077 

156 010002 072527 177772 

157 010006 042705 176000 
158 

159 

160 

161 010012 004737 013672' 

162 

163 

164 

165 

166 010016 010504 

167 010020 010437 000136' 

168 010024 013705 000134' 
169 

170 
171 



Set up information about the IND program 

CALL INDINI ; INITIALIZE FOR IND PROGRAM 

Initialize the TSXUCL data file 

CALL UCLINI 
Set name of device that UCL program is to be run from 



MOV SYNAME, UCLNAM 
Initialize spooling system 

CALL SPLINI 
Open system swap file 



} SET DEVICE NAME FOR UCL PROGRAM 



; INITIALIZE SPOOLING SYSTEM 



TSTB 


VSWPFL 


BEQ 


3* 


CALL 


OPNSWP 



IS JOB SWAPPING ALLOWED? 

BR IF NOT 

OPEN THE SYSTEM SWAP FILE 

} Open swap file used for PLAS regions 

i 

3*: CALL OPNRSF iOpen PLAS region swap file 

i 

i Set up information about which devices need to have their I/O mapped 
i 

CALL SETMIO ; Set up information about mapped I/O 

i 

i We are finished allocating low-memory buffer space. 



MOV 
CALL 



R5, RO 
CHKMEM 



i ENSURE WE DON'T OVERFLOW 40KB 
J ABORT IF > 40KB OR INTO RT-11 



MOV 


R5> UMSYTP 


ADD 


#77, R5 


ASH 


#-6, R5 


BIC 


#176000, R 5 



From this point on carry the free memory address in R5 
as a 64-byte block # in physical memory. 

SAVE ADDRESS OF NON-EXTENDED SYSTEM TOP 
BOUND UP TO 64-BYTE BOUNDARY 
CONVERT TO 64-BYTE BLOCK # 
KILL SIGN EXTENSION 

Allocate buffer space that is not contrained to 40Kb TSX-Plus region. 

CALL ALBFX i ALLOCATE EXTENDED BUFFERS 

We will now do some allocation from the top of physical memory downward. 
Save the base of free memory in R4 and get the top of free memory to R5. 

; Save the base of free memory in R4 

i Save pointer above top of alloc low memory 

J Get 64-byte block # of free high memory 



MOV 


R5, R4 


MOV 


R4, FMEMLO 


MOV 


FMEMHI,R5 



Load any mapped system code 
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172 
173 
174 
175 
176 
177 
178 
179 
ISO 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 



010030 004737 024012' 



010034 
010040 
010042 
010046 
010050 
010054 
010060 
010064 
010066 
010070 
010074 



010114 
010120 
010140 
010146 
010152 
010156 
010160 
010166 
010174 



005727 
001415 
012701 
010502 
004737 
062701 
020127 
103771 
160502 
010237 



OOOOOOG 

OOOOOOG 

025456' 
OOOOOOG 
OOOOOOG 

OOOOOOG 



010074 004737 021274' 



010100 004737 026070' 



010104 004737 017370' 



010110 004737 017554' 



013702 OOOOOOG 



010037 
020237 
001010 



OOOOOOG 
OOOOOOG 



5«: 



TST 


#NUMRDB 


BEQ 


4* 


MOV 


#RDB,R1 


MOV 


R5, R2 


CALL 


GETSRT 


ADD 


#RT**SZ,R1 


CMP 


R1,#RDBEND 


BLO 


5* 


SUB 


R5, R2 


MOV 


R2, SRTSIZ 



4$: 
. IF 



CALL GETMAP ; LOAD USR, EMT, MSG, LOCK, SPOOL, etc. 

Load any shared run-time systems 

Do uie need to load any shared run-times? 

Br if not 

Point to 1st run-time descriptor block 

Save initial memory pointer 

Load a shared run-time system 

Point to next shared run-time descriptor 

Are there more to load? 

Br if yes 

Compute amt of space used by run-times 

Save total run-time size 

NE, PROASM 

If lue are running on a Pro, load the PI handler like a shared run-time 

Are we running on a Pro? 
Br if not 

Point to dummy shared run-time block for PI 
Save current memory pointer 
Load PI handler like a shared run-time 
Calculate amt of space used by PI handler 
Count in mapped-handler size 
ENDC i NE, PROASM 

Load any mapped handlers 

10*: CALL OETHNH j Load mapped handlers 

Allocate space for data cache buffers and control tables 

CALL CSHBUF ; Allocate space for data cache 

We have finished allocating all of the memory used by the system. 
Allocate and initialize a memory map table that will be used to 
show which pages are available for user jobs. 

CALL MAPALC {Allocate memory map table 

Set up info about maximum memory space available to jobs 



TSTB 


PROFLG 


BEQ 


10* 


MOV 


#PISRT, Rl 


MOV 


R5, R2 


CALL 


GETSRT 


SUB 


R5, R2 


ADD 


R2, MHNSIZ 



CALL SETJSZ 
Set up date and time 



SYTIML, R2 
#AREA, #SYTIMH 



000137 004216 



MOV 
. GTIM 
. DATE 

MOV RO, SYSDAT 

CMP R2, SYTIML 

BNE 11* 

.PRINT #TSXHD 

.PRINT #NOCLOK 

JMP INISTP 



iSET JOB SIZE INFO 



Save time we got at start of init 

SET TIME OF DAY 

GET DATE 

SET SYSTEM DATE 

Make sure some time has elapsed 

Br if clock is running 

Print error message heading 

Print clock-not-working message 

Abort initialization 
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230 

231 

232 010200 

233 

234 

235 

236 

237 010202 013702 000154' 

238 010206 006202 

239 010210 013703 000152' 

240 010214 000241 

241 010216 006003 

242 010220 000303 

243 010222 
244 

245 

246 

247 010256 004737 027662' 

248 

249 

250 

251 010262 000137 003534' 



Unlock the USR so that TSEMT will be swapped back in. 

11*: .UNLOCK i RELEASE USR 

Read back into memory that part of the resident portion of TSX 
that we overlayed with our work buffer. 

iOet size of work buffer 

/Convert to # words 

; Get address of work buffer area 

i Convert to block # in TSX. SAV file 

#AREA, #17, WRKBUF, R2, R3 ; Read back TSX over work buffer 
See if user requested control-C abort 

CALL CCATST J JUMP TO INISTP IF "C'^C BEFORE THIS POINT 

Jump to code at end of TSINIT which takes over control from RT-11 

JMP TAKOVR 



MOV 


WRKSIZ,R2 


ASR 


R2 


MOV 


WRKBUF, R3 


CLC 




ROR 


R3 


SWAB 


R3 


. READW 


#AREA, #17 
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1 
2 
3 
4 
5 
6 
7 

e 

9 
10 
11 

12 010266 010246 
13 
14 
15 
16 
17 



IS 

19 

20 

21 
22 
23 
24 

25 

26 



10270 
10274 
10300 
10304 
10310 



10316 
10320 



012702 
062702 
042702 
010237 
012737 



012602 
000207 



SBTTL -K- # » Subroutines * * * 

SBTTL ALCWRK — Allocate a work buffer 



Allocate a 2048. byte work buffer over a resident portion of TSX. 
This area will be restored from the TSX. SAV disk file after we 
are finished using the work area. 



Outputs: 
WRKBUF == Address of base of work buffer. 
WRKSIZ = Size of work buffer (2048). 



ALCWRK: MOV 



R2, -(SP) 



Get address of start of area where buffer can go and then bound 
up to a block boundary. 



OOOOOOG 

000777 

000777 

000152' 

004000 000154' 



HOV 
ADD 
BIG 
MOV 
MOV 

Finished 



MOV 
RETURN 



#EXCBUF, R2 
#777, R2 
#777, R2 
R2, WRKBUF 
#2048. , WRKSIZ 



<SP)+, R2 



J Get address of base of buffer area 
; Bound up to block boundary 
; Set to block boundary 



TSINIT - 
ALCHRB - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
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— Allocate Region Control Blocks for handlers 



SBTTL ALCHRB 



Allocate Region Control Blocks for handlers 



010322 010246 



010324 013700 OOOOOOG 



010330 010537 OOOOOOG 

010334 010537 OOOOOOG 

010340 162737 OOOOOOG OOOOOOG 

010346 012725 177777 



010352 012702 000005 
010356 005025 
010360 077202 



010362 005300 
010364 003372 



010366 012725 177777 



010372 012602 
010374 000207 



This routine allocates and initializes empty Region Control Blocks for 
use by device handlers. 

Inputs: 
R5 = Pointer to start of memory area where RCB's are to be built. 

Outputs: 
R5 = Pointer past end of RCB area. 

ALCHRB: MOV R2. -(SP) 

Get count of # RCB's to build 

MOV NDVRCB,RO i Get # RCB's to build for handlers 

Store pointer to start of RCB area and store -1 at beginning of area 

MOV R5, HANRCB i Start of RCB area 

MOV R5. HANRCO ; Store offset relative to MONVEC 

SUB #MONVEC, HANRCO i Convert address to offset 

MOV #-1, (R5)+ ; Store -1 at start of area 



Allocate and initialize to zero the RCB's 



1*: 

2$: 



MOV 
CLR 
SOB 



#5. , R2 
<R5) + 
R2, 2* 



iEach RCB has 5 words 
i Zero the RCB 



See if there are more RCB's to build 



DEC 
BGT 



RO 
1$ 



Store -1 at end of RCB area 

MOV #-1, <R5)+ 

Finished 

MOV (SP)+, R2 
RETURN 



i More RCB's to initialize' 
/Loop if yes 



jMark end of RCB list 



i 
I 

i 
i 

4 
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I 
I 

€ 
I 



1 

2 
3 
4 
5 
6 
7 
8 
9 010376 

10 010400 

11 010402 

12 010404 

13 010406 
14 

15 

16 

17 010412 

18 

19 

20 

21 

22 

23 



25 

26 010424 

27 010430 

28 010436 

29 010440 

30 010444 

31 010446 

32 010452 

33 010454 

34 010460 

35 010462 

36 010466 

37 010470 

38 010474 
39 

40 010500 

41 010504 

42 010506 

43 010512 

44 010514 
45 

46 010516 

47 010522 

48 010524 

49 010530 

50 010532 

51 010536 
52 

53 010540 

54 010544 
55 

56 
57 



. IF NE* <PR0ASM-1> i If not assembling for Pro only 
. SBTTL LINCHK — Check validity of T/S line 

UNCHK is called to check the validity of specified T/S line 
vector and status register addresses. 

If an uninstalled line is detected this routine aborts if 
INIABT=1 or sets the *DEAD flag for the line if INIABT==0. 



010146 
010246 
010346 
010446 
013746 



000004 



NCHK: 


MOV 


R1,-<SP) 




MOV 


R2, -(BP) 




MOV 


R3. -<SP) 




MOV 


R4, -<SP) 




MOV 


e#4, -<SP) 



012737 010612' 000004 



010420 012701 OOOOOOG 



Take over trap control 
MOV #6*, e#4 



J SAVE ORIOINAL TRAP VECTOR 



; CATCH TRAPS 



Loop through the test for each line. 

MOV #LSTLIN, Rl i NUMBER OF LAST LINE 



Determine if this is a primary line or an I/O 
addresses of the interrupt service routines. 



line and set the 



004737 
032761 
001440 
016103 
001411 
016302 
001403 
016304 
000407 
004737 
000424 
016102 
016104 

020227 
103445 
032702 
001042 
005712 

020427 
103445 
020427 
103042 
032704 
001037 



006330 ' 
OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

010564' 

OOOOOOG 
OOOOOOG 

160000 

000007 

000060 
000500 
000007 



162701 000002 
003327 



1«: CALL 
BIT 
BEQ 
MOV 
BEQ 
MOV 
BEQ 
MOV 
BR 

11*: CALL 
BR 

2*: MOV 
MOV 

J Check vali 

3$: CMP 
BLO 
BIT 
BNE 
TST 

} Check vali 
CMP 
BLO 
CMP 
BHIS 
BIT 
BNE 

j This 1 ine 

31*: SUB 
BGT 



LINTYP 

#*HARD, LSW3<R 

31* 

LMXNUM<R1)>R3 

2* 

MXCSR<R3), R2 

11* 

MXVEC<R3), R4 

3* 

4* 

31* 

RSR(R1),R2 

INVEC<R1), R4 
dity of status r 

R2, #160000 

LINTRP 

#7, R2 

LINTRP 

@R2 
dty of interrupt 

R4, #60 

BADVEC 

R4, #500 

BADVEC 

#7, R4 

BADVEC 
looks good. Check 

#2, Rl 

1* 



Determine the type of this line 
1) * Is this line connected to hardware? 
Br if not 

IS THIS A DL-11 OR MULTIPLEXER LINE? 
BR IF DL-11 

GET DZll OR DHll STATUS REGISTER ADDRESS 
BR IF ALREADY MARKED AS DEAD 
GET MUX INTERRUPT VECTOR ADDRESS 

iMARK LINE AS DEAD 
i CONTINUE CHECKING TERMINALS 
iQET DL-11 STATUS REGISTER ADDRESS 
iGET DL-11 INTERRUPT VECTOR ADDRESS 
egister address. 

; IS IT IN I/O PAGE? 
; ERROR IF NOT 

; IS IT ON 8-BYTE BOUNDARY? 
} ERROR IF NOT 

J TRY TO ACCESS IT AND SEE IF WE TRAP 
vector address. 

; CAN'T BE BELOW 60 



; OR ABOVE 500 

i MUST BE ON 8-BYTE BOUNDARY 

next. 

i MORE TO CHECK? 

; BR IF YES 



Finished — all lines look ok. 



TSINIT ■ 
LINCHK 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
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010546 
010552 
010554 
010556 
010560 
010562 



010564 
010570 
010572 
010600 
010602 
010604 
010610 



010612 
010616 



010620 
010626 
010634 



010636 
010644 
010652 
010654 
010656 
010662 
010670 
010676 
010700 
010702 
010706 
010714 



012637 000004 

012604 

012603 

012602 

012601 

000207 



105737 0000000 

001013 

052761 OOOOOOG OOOOOOG 

005703 

001402 

005063 OOOOOOG 



000207 



000407 



010100 
006200 
004737 



MOV 
MOV 
MOV 
MOV 
MOV 
RETURN 



(SP)+, @»4 
<SP)+, R4 
(SP)+, R3 
(SP)+, R2 
<SP)+,R1 



; RESTORE TRAP VECTOR 



4*: 



See if we should abort or just mark the line as dead. 



DOES HE WANT TO ABORT? 

YES 

MARK LINE AS DEAD 

IS THIS A DLll OR A MUX LINE? 

BR IF DLll 

MARK DZ OR DH AS DEAD 



5$: 



TSTB 


VINABT 


BNE 


LINTRP 


BIS 


#*DEAD, LSW3(R1) 


TST 


R3 


BEQ 


5* 


CLR 


MXCSR<R3) 


RETURN 





004737 010564' 
000002 



Trap occured while trying to access status register. 
6*: CALL 4* 



CALL 
RTI 



i REPORT ERROR OR MARK AS DEAD LINE 
i RETURN TO LINE CHECKING 



Error: Invalid status register address. 

Rl = Line numberi R2 = status register address 



LINTRP: .PRINT #TSXHD 
.PRINT #BADLIN 
BR ERP 



i PRINT ERROR MESSAGE 



Error: Invalid interrupt vector address. 

Rl = Line numberi R4 = interrupt vector address 



010402 
010200 
004737 027676 ' 



027746 



000137 004216' 



BADVEC: .PRINT #TSXHD 

.PRINT #BDVMSG 

MOV R4, R2 

ERP: MOV R2>R0 

CALL PRTOCT 

.PRINT #CRLF 

-PRINT #BDLMS0 

MOV R1,R0 

ASR RO 

CALL PRTDEC 

. PRINT #CRLF 

JMP INISTP 

. ENDC ; NE. <CPROASM-i: 



PRINT ERROR MESSAGE 

GET VECTOR ADDRESS TO R2 
GET ADDRESS TO RO 
PRINT OCTAL VALUE 

LINE # = 

GET LINE NUMBER 

« 1 

PRINT LINE NUMBER 

j ABORT INITIALIZATION 



I 
I 
i 
i 



TSINIT ■ 


— TSX s 


tartup initiaiiz 


OPNSWP - 


— Open 


system s 


map file 


1 
2 








3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 


010720 


010146 




14 


010722 


010246 




15 


010724 


010346 




16 








17 








18 








19 


010726 


013700 


0000000 


20 


010732 


004737 


027506' 


21 


010736 


103546 




22 








23 








24 








25 


010740 


012703 


OOOOOOC 


26 


010744 


012701 


OOOOOOG 


27 


010750 


032761 


0000000 


28 


010756 


001001 




29 


010760 


005203 




30 


010762 


162701 


000002 


31 


010766 


003370 




32 


010770 


020337 


OOOOOOG 


33 


010774 


002002 




34 


010776 


010337 


OOOOOOG 


35 








36 








37 








38 


011002 


013703 


OOOOOOG 


39 


011006 


006303 




40 


011010 


063703 


OOOOOOG 


41 


011014 


010337 


OOOOOOG 


42 








43 








44 








45 


011020 


070337 


OOOOOOG 


46 








47 








48 








49 








50 


011024 






51 


011044 


103415 




52 








53 


011046 


020003 




54 


011050 


001453 




55 








56 








57 


011052 
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SBTTL OPNSWP 



Open system smap file 



OPNSWP is called to open the TSX job siuap file. 
It also assigns swap file slots for each line. 

Inputs: 
R5 = Address of base of free memory region 

Outputs: 
SWPCHN = Set up for access to swap file. 
LSWP13K<i) = Starting block number in swap file for swap area for line. 



OPNSWP: MOV 
MOV 
MOV 



R 1 , - ( SP ) 
R2i -(SP) 
R3, -<SP) 



Load RT-11 handler for swap device. 



MOV SWDBLK, RO 
CALL RTFTCH 
BCS 11* 



; Get name of device 

; Fetch the RT-11 handler 

; Br if invalid device 



Compute the maximum number of slots in swap file that we could need 



OOOOOOG 1$: 



5*: 



MOV #NSL+NDL, R3 

MOV #LSTPL, Rl 

BIT #*DEAD, LSW3<R1) 

BNE 5* 

INC R3 

SUB #2, Rl 

BGT 1* 

CMP R3, VSWPSL 

BGE 6$ 

MOV R3, VSWPSL 



Get # virtual lines and detached jobs 

Get index to last primary line 

Is this line installed? 

Br if not 

Count another primary line 

Get next line index 

Loop if more lines to check 

Compare with # slots specified 

Br if VSWPSL value is ok 

Reduce number of slots in swap file 



Determine how many blocks are needed for each slot in swap file. 



6*: 



MOV VHIMEM. R3 

ASL R3 

ADD CXTPAG, R3 

MOV R3, SLTSIZ 



iGET # BLOCKS NEEDED FOR LARGEST JOB SIZE 

J ADD # BLOCKS NEEDED FOR JOB CONTEXT AREA 
i Save size of swap file slot 



4*: 



Compute the total number of blocks needed for the swap file. 

MUL VSWPSL, R3 ; Multiply by # slots in swap file 

R3 now contains total number of blocks needed in swap file. 
See if swap file already exists on disk. 

.LOOKUP #AREA, #l,#SWDBLKiDOES SWAP FILE EXIST NOW? 

BCS 2* iBR IF NOT 

Swap file exists. See if it is the right size. 

CMP RO, R3 J IS SWAP FILE THE RIGHT SIZE? 

BEQ 3* i BR IF YES 

Old swap file is not of correct size. 
Delete it and open a new swap file. 

. CLOSE #1 



I 
< 
I 

i 
i 
( 
( 
< 
I 
i 

( 
I 
€ 

( 
4 
I 
I 

i 



I 
f 
I 
I 

4 



TSINIT - 


— TSX s 


tartup initializ 


OPNSWP - 


— Open 


system swap file 


58 


011060 






59 








60 








61 








62 


011100 






63 


011124 


103443 




64 








65 








66 








67 








68 








69 


011126 


005303 




70 


011130 






71 


011166 


005203 




72 


011170 






73 


011176 


000712 




74 








75 








76 








77 








78 


011200 


012700 


OOOOOOG 


79 


011204 


013702 


OOOOOOG 


SO 


011210 


004737 


027126' 


81 








82 








S3 








84 


011214 






85 








86 








87 








88 


011224 


012603 




89 


011226 


012602 




90 


011230 


012601 




91 


011232 


000207 




92 








93 








94 








95 


011234 






96 


011242 






97 


011250 


004737 


011276' 


98 








99 








100 








101 


011254 


010001 




102 


011256 






103 


011264 






104 


011272 


004737 


011324' 


105 








106 








107 








108 


011276 






109 


011304 


010300 




110 


011306 


004737 


027746 ' 


111 


011312 






112 


011320 


000137 


004216' 


113 








114 









MACRO V05. 04 Monday 14~Dec-87 08:35 Page 28-1 

-DELETE #AREA,#l,#SWDBLKi DELETE THE OLD SWAP FILE 

Create a new swap file. 

2*; .ENTER #AREA, #1, #SWDBLK, R3 i CREATE A NEW SWAP FILE 
BCS 9* ;BR IF SOME ERROR ON OPEN 

Swap file has been created. 

Write to last block to reserve full space in file then close 

and reopen the channel using a . lookup. 

DEC R3 iOET # OF LAST BLOCK IN FILE 

.WRITW #AREA, #1,#TSINIT, #256. ,R3 ; WRITE TO LAST BLOCK IN FILE 

INC R3 ; GET BACK # BLOCKS IN FILE 

.CLOSE #1 i CLOSE FILE WE CREATED 

BR 4* i NOW GO REOPEN USING A . LOOKUP 

Swap file has been successfully opened using a .lookup. 
Now copy channel status to TSX swap channel. 



3$: 



MOV 


#SWPCHN, RO 


MOV 


SWDBLK, R2 


CALL 


SETCHN 



POINT TO SWAP CHANNEL BLOCK 

GET DEVICE NAME 

SET UP SWAP CHANNEL INFO 



Release the RT-11 device handler 

. RELEAS #SWDBLK j Release RT-11 device handler 
Finished 



MOV 


(SP)+, R3 


MOV 


<SP)+, R2 


MOV 


< SP ) +, R 1 


RETURN 





Error: Cannot open swap file 

9*: .PRINT #TSXHD i PRINT ERROR MESSAGE 

.PRINT #BADOPN 
CALL SPNEED i Print info about number of blocks needed 

Error: Invalid device specification. 



11*: MOV RO, Rl 

.PRINT #TSXHD 

.PRINT #BADOPN 

CALL BADDEV 



i Save device name 
i Print error message 



; Print invalid device specification 
Error: Number of contiguous blocks required. 



SPNEED: .PRINT #CONSPC 

MOV R3, RO 

CALL PRTDEC 

.PRINT #CRLF 

JMP INISTP 

i Bad file specification. 



Print contiquous blocks needed 
GET # BLOCKS NEEDED FOR FILE 
DISPLAY # BLOCKS NEEDED 

} ABORT INITIALIZATION 



f 
I 
I 
< 

I 
< 

4 

I 

t 

4 

4 

4 

4 

i 

i 

I 

I 



TSINIT — TSX startup initializ MACRO V05. 04 
OPNSWP — Open system swap file 



Monday 14-Dec-87 08:35 Page 28-2 



115 
116 
117 
118 
119 
120 



011324 
011332 
011334 
011340 
011346 



010100 
004737 



030012 



000137 004216 



BADDEV: 


, PRINT 


#CFHMSG 




MOV 


R1,R0 




CALL 


PRTR50 




. PRINT 


#CRLF 




JMP 


INISTP 



;Print invalid device specification 

i Get the radSO device name 

j Print radSO device name 

i Print carriage return/line feed 

iAbort initialization 



TSINIT - 


— TSX s 


startup initializ 


OPNRSF ■ 


— Open 


PLAS reg 


ion suap 


1 
2 








3 








4 








5 








6 








7 








8 








9 








10 








11 


011352 


010346 




12 








13 








14 








15 








16 


011354 


105737 


OOOOOOG 


17 


011360 


001513 




18 


011362 


005737 


OOOOOOG 


19 


011366 


001510 




20 








21 








22 








23 


011370 


013700 


OOOOOOG 


24 


011374 


004737 


027506 ' 


25 


011400 


103515 




26 


011402 


013703 


OOOOOOG 


27 








28 








29 








30 


011406 






31 


011426 


103416 




32 








33 








34 








35 








36 


011430 


020037 


OOOOOOG 


37 


011434 


001453 




38 








39 








40 








41 








42 


011436 






43 


011444 






44 








45 








46 








47 


011464 






48 


011512 


103440 




49 








50 








51 








52 








53 








54 


011514 


005303 




55 


011516 






56 


011554 






57 


011562 


000711 
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SBTTL OPNRSF — Open PLAS region swap file 



OPNRSF is called to open the suiap file used for PLAS regions. 

Inputs: 
R5 = Address of base of free memory area. 

Outputs: 
SEGCHN = Set up to access swap file. 



OPNRSF: MOV 



R3, -(SP) 



TSTB 


VSWPFL 


BEQ 


9* 


TST 


VPLAS 


BEQ 


9* 



4*: 



Return if this is a non-sii»apping system or if region suiap file is 
not wanted. 

i Is this a non-swapping system? 
; Br if yes 

; Is a PLAS swap file wanted? 
* Br if not 

Load RT~11 device handler for swap device 

J Get name of device 

; Try to fetch the RT-11 device handler 

; Br if error on handler fetch 

J Get # blocks in PLAS swap file 

See if PLAS swap file already exists on disk 

.LOOKUP #AREA, #1,#RSFBLK ; Try to find existing PLAS swap file 
BCS 2* ; Br if file does not now exist 

PLAS swap file exists. 

See if it is the correct size. 



MOV 


RSFBLK, RO 


CALL 


RTFTCH 


BCS 


11* 


MOV 


VPLAS, R3 



CMP 
BEQ 



RO, VPLAS 
3* 



; Is swap file of the correct size? 
; Br if yes 



Old PLAS swap file is not of correct size. 
Delete it and open a new swap file. 

.CLOSE #1 ; Close and delete the old file 

.DELETE #AREA, #l,#RSFBLKi Delete the old file 

Create new swap file 

2*: .ENTER #AREA, #1, #RSFBLK, VPLAS i Create a new PLAS swap file 
BCS 10* ; Br if cannot create new file 

New swap file has been created. 

Write to last block to reserve full file size 

and then close and reopen with a lookup. 

DEC R3 J Get # of last block in file 

.WRITW #AREA, #1,#TSINIT, #256. , R3 

. CLOSE #1 

BR 4* ; Go back and lookup file 



I 
I 



TSINIT - 


— TSX s 


tartup initializ 


OPNRSF - 


— Open 


PLAS reqion suiap 


58 








59 








60 








61 








62 


011564 


012700 


OOOOOOG 


63 


011570 


013703 


ooooooe 


64 


011574 


004737 


027126' 


65 








66 








67 








68 


011600 






69 








70 








71 








72 


011610 


012603 




73 


011612 


000207 




74 








75 








76 








77 


011614 






78 


011622 






79 


011630 


004737 


011276' 


80 








81 








82 








83 


011634 


010001 




84 


011636 






85 


011644 






86 


011652 


004737 


011324' 
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Suap file has been successfully opened using lookup. 
Copy channel status to TSX channel block. 



3$: MOV #SEGCHN, RO 
MOV RSFBLK, R3 
CALL SETCHN 



; Point to TSX PLAS swap channel 

iGet device name 

;Set up TSX channel block 



Release the RT-11 device handler 

. RELEAS #RSFBLK i Release RT-11 device handler 

Finished 

9*: MOV (SP)+, R3 
RETURN 

Error — Cannot open PLAS swap file 



10*: .PRINT #TSXHD 
.PRINT #RSFERR 
CALL SPNEED 



i Print error prefix 

i Print error message 

f Print information about amt of space needed 



Error: Invalid device specification. 



11*: MOV R0>R1 

. PRINT #TSXHD 

.PRINT #RSFERR 

CALL BADDEV 



/Save device name 
* Print error message 

;Print invalid device specification 



TSINIT ■ 
SPLINI - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



-- TSX startup initializ MACRO V05. 04 
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011656 
011662 
011664 
011666 



011670 
011672 
011674 
011676 
011700 



011702 
011706 
011712 
011716 
011722 
011726 
011730 
011734 
011736 
011742 
011744 
011746 
011750 
011754 
011756 
011760 
011764 
011770 
011772 
011776 
012000 
012004 
012006 
012012 
012014 
012016 
012022 
012026 
012030 
012034 



005727 0000000 

001401 

000401 

000207 



010146 
010246 
010346 
010446 
010546 



105037 
012701 
012703 
012704 
004737 
011302 
010261 
010100 
062700 
1 1 2420 
112420 
112420 
020227 
001451 
010200 
004737 
010061 
010200 
004737 
103406 
004737 
103414 
105237 
000432 
010100 
062700 
004737 
103403 
105237 
000421 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
012730' 

OOOOOOG 

OOOOOOG 



OOOOOOG 

012632' 
OOOOOOG 

012526' 

012442' 

OOOOOOG 



OOOOOOG 
027040 ' 

OOOOOOG 
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. SBTTL SPLINI — Initialize spooling system 



SPLINI performs the initialization of the spooling system. 
Inputs: 
R5 = Current base of free memory area. 



SPLINI: TST #SPLND 

BEQ 13* 

BR 10* 

13*: RETURN 



j Are there any spooled devices? 

i Br if not 

i Initialize the spooled devices 



There are some spooled devices 



10*: 



MOV 
MOV 
MOV 
MOV 
MOV 



R1,-<SP) 
R2, -(SP) 
R3, -<SP) 
R4, -<SP> 
R5, -(SP) 



Open each spooled device 



2*: 



14*: 



CLRB 


NSPLDV 


MOV 


#SDCB,R1 


MOV 


ttSPLDEV, R3 


MOV 


#SPLANM, R4 


CALL 


FORCEO 


MOV 


<R3),R2 


MOV 


R2iSDNAME(Rl> 


MOV 


R1,R0 


ADD 


#SDANAM, RO 


MOVB 


(R4)+, (R0) + 


MOVB 


<R4)+, (R0) + 


MOVB 


<R4)+, (R0) + 


CMP 


R2, #DMYDEV 


BEQ 


1* 


MOV 


R2, RO 


CALL 


CVTDVU 


MOV 


RO, SDDVU<R1) 


MOV 


R2, RO 


CALL 


CHKCLD 


BCS 


14* 


CALL 


SPLCLD 


BCS 


3* 


INCB 


NSPLDV 


BR 


1* 


MOV 


R1,R0 


ADD 


#SDCHAN, RO 


CALL 


OPNCHN 


BCS 


3* 


INCB 


NSPLDV 


BR 


1* 



INIT COUNT OF # ACTUAL SPOOLED DEVICES 

POINT TO 1ST SDCB 

POINT TO TABLE OF RAD50 DEV NAMES 

POINT TO TABLE OF ASCII DEV NAMES 

FORCE UNIDENTIFIED UNIT #S TO 

GET RAD50 NAME OF SPOOLED DEVICE 

SET NAME IN SDCB 

GET ADDRESS OF SDCB 

POINT TO CELL FOR ASCII NAME 

MOVE IN ASCII DEVICE NAME 



Is this a dummy entry for later patching? 

Br if yes — Ignore it 

Get name to RO 

Convert name to device # and unit # 

Store device # and unit # in SDCB 

Get device name 

See if this is a CL device? 

Br if not 

Set up for spooling to CL device 

Br if invalid unit 

Count # of actual spooled devices 

Process next device 

Get address of SDCB 

Point to channel block tuithin SDCB 

Set TSX-Plus channel block open to device 

Br if did not recognize device 

Count # actual spooled devices 

GO PROCESS NEXT DEVICE 



Error on opening spooled device 

Determine if we should print an error message or simply 

mark the spooled device as unavailable. 



012036 012761 OOOOOOG OOOOOOG 3*: 



MOV 



ttDMVDEV, SDNAME(Rl)i SAY THIS DEVICE IS NOT SPOOLED 



TSINIT - 


-- TSX s 


tartup initializ 


SPLINI - 


~ Initialize sp 


ooling s 


58 


012044 


105737 


OOOOOOG 


59 


012050 


001413 




< 60 


012052 






61 


012060 






62 


012066 


010200 




< 63 


012070 


004737 


030012' 


64 


012074 


000137 


004216' 


65 








< 66 








67 








68 


012100 


062701 


OOOOOOG 


< 69 


012104 


005723 




70 


012106 


020327 


OOOOOOG 


71 


012112 


103703 




< 72 








73 








74 








< 75 


012114 


105737 


OOOOOOG 


76 


012120 


001521 




77 


012122 


013700 


OOOOOOG 


< 78 


012126 


004737 


027506 ' 


79 


012132 


103532 




80 


012134 


013702 


OOOOOOG 


1 81 


012140 


005202 




82 








83 








1 84 








85 


012142 






86 


012162 


103415 




i 87 


012164 


020002 




88 


012166 


001453 




89 


012170 






1 90 


012176 






91 








92 








< 93 








94 


012216 






95 


012242 


103456 




i 96 








97 


012244 


010203 




98 


012246 


005303 




i 99 


012250 






100 








101 


012306 






i 102 


012314 


000712 




103 








104 








< 105 








106 








107 


012316 


012700 


OOOOOOG 


< 108 


012322 


013702 


OOOOOOG 


109 


012326 


004737 


027126' 


110 


012332 






< 111 








112 








113 








i 114 


012342 


113703 


OOOOOOG 
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TSTB VINABT 

BEQ 1* 

.PRINT #TSXHD 

.PRINT #BDSPOP 

MOV R2, RO 

CALL PRTR50 

JMP INISTP 

Process next spooled device 



1*: 



ADD 


#SDCBSZ,R1 


TST 


(R3) + 


CMP 


R3, #SPLDVN 


BLO 


2* 



Open the spool file 



TSTB 


NSPLDV 




BEQ 


12$ 




MOV 


SPLBLK. 


RO 


CALL 


RTFTCH 




BCS 


11* 




MOV 


NSPLBL, 


R2 


INC 


R2 





ABORT OR CONTINUE ON ERRORS? 

BR TO IGNORE DEVICE AND CONTINUE INIT 

PRINT ERROR MESSAGE 

GET RAD50 DEVICE NAME 
PRINT DEVICE NAME 
ABORT INITIALIZATION 



POINT TO NEXT SDCB 
POINT TO NEXT DEVICE NAME 
OPENED ALL SPOOLED DEVICES? 
BR IF MORE TO DO 



ARE THERE ANY ACTUAL SPOOLED DEVICES? 

BR IF THERE ARE NO ACTUAL SPOOLED DEVICES 

Get name of device for spool file 

Fetch the RT-11 device handler 

Br if cannot fetch handler 

GET # BLOCKS TO ALLOCATE FOR FILE 

Add 1 extra block 



1 
I 



See if spool file already exists 



5*: 



. LOOKUP #AREA, #1, #SPLBLK 

BCS 6* 

CMP RO, R2 

BEQ 7* 

. CLOSE #1 

. DELETE #AREA, #1» #SPLBLK 

Open new spool file 



SEE IF SPOOL FILE ALREADY EXISTS 

BR IF IT DOES NOT EXIST 

IS IT THE RIGHT SIZE? 

BR IF YES 

IT EXISTS BUT IS OF WRONG SIZE 

DELETE CURRENT FILE AND OPEN NEW ONE 



6*: 



.ENTER #AREA,#1,#SPLBLK,R2; CREATE A NEW SPOOL FILE 
BCS 8* iBR IF ERROR ON ENTER 

Write to last block in file to reserve full file space 
MOV R2, R3 ;Oet # of blocks in file 

DEC R3 iGet # of last block in file 

.WRITW #AREA, #li#TSINIT, #256. ,R3 

Nouj close and reopen using a lookup 

. CLOSE #1 i CLOSE SPOOL FILE 

BR 5* ;G0 BACK AND REOPEN USING LOOKUP 

Spool file has been successfully opened uith a lookup. 
Save the channel status. 



7«: MOV ttSPLCHN, RO 
MOV SPLBLK, R2 
CALL SETCHN 
. RELEAS #SPLBLK 



SAVE CHANNEL STATUS HERE 

GET DEVICE NAME 

SAVE CHANNEL STATUS 

Release the RT-11 device handler 



Set number of free public blocks in spool file 

MOVE NSPLDV, R3 iGet # spooled devices 



J 

1 



TSINIT 
SPLINI - 

115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
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012346 
012352 
012354 
012360 



012364 
012366 
012370 
012372 
012374 
012376 



012400 
012406 
012414 



070327 OOOOOOG 

005403 

063703 OOOOOOG 

010337 OOOOOOG 



012605 
012604 
012603 
012602 
012601 
000207 



000137 004216' 



012420 010001 



012430 
012436 



12* 



MUL 


#PVSPBL, R3 


NEG 


R3 


ADD 


NSPLBL, R3 


MOV 


R3, NFRESB 


Finished 




MOV 


(SP)+, R5 


MOV 


<SP)+, R4 


MOV 


<SP)+, R3 


MOV 


<SP)+, R2 


MOV 


(SP)+,R1 


RETURN 





; Times number of private blocks per dev 

i Get # public spool blocks 
J This is number of public free spool blocks 



9*: 

; Error: Cannot open spool file. 

8*: .PRINT #TSXHD ; PRINT ERROR MESSAGE 

i ABORT INITIALIZATION 
Error: Invalid device specification. 



.PRINT #TSXHD 
.PRINT #BOSF 
JMP INISTP 



004737 011324' 



11*: MOV ROtRl 

. PRINT #TSXHD 

.PRINT #BOSF 

CALL BADDEV 



; Save device name 
; Print error message 

i Print invalid device specification 



i 
i 

i 



TSINIT - 
SPLCLD - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
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— Set up spooling to a CL device 



012442 010546 



012444 010005 

012446 020527 0000000 

012452 103022 



012454 005061 OOOOOOC 

012460 020527 000007 

012464 101405 

012466 162705 000010 

012472 013700 OOOOOOG 

012476 000402 

012500 013700 OOOOOOG 

012504 010061 OOOOOOC 

012510 110561 OOOOOOC 



012514 000241 
012516 000401 



012520 000261 



i22 012605 
012524 000207 



. SBTTL SPLCLD 



Set up spooling to a CL device 



SPLCLD is called to set up a spool device control block when 
spooling is being directed to a Communication Line <CL) device. 

Inputs: 
RO = CL unit number 
Rl = Address of SDCB 

Outputs: 

C-flag set ==> Invalid CL unit 

SPLCLD: MOV R5, -<SP) 

Make sure CL unit number is valie 

;Get CL unit number 

j Is this a valid unit # 

; Br if inval id 

Set up channel control block in SDCB 

CLR SDCHAN+C. SBLK<Rl)i Starting block # = 

CMP R5,#7 i Is this a CL or CI unit? 

BLOS 1* i Br if CL unit 

SUB #8. I R5 J Remove CI unit # bias 

MOV C1DEVX,R0 ; Get CI device index number 

BR 2* 

MOV CLDEVX.RO i Get CL device index number 

MOV RO, SDCHAN+C. CSW(Rl)i Set device index number 

MOVB R5, SDCHAN+C. DEVQ<Rl)jSet unit # 

We successfully set up a CL unit 

/Signal success on error 



MOV 


RO, R5 


CMP 


R5, #CLTOTL 


BHIS 


8« 



1«: 
2*: 



CLC 
BR 



9* 



We cannot open this CL unit 

8*: SEC 

Finished 

9$: MOV (SP)+, R5 
RETURN 



Signal error 



TSINIT 
CHKCLD 
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— See if a device name is a CL or CI unit 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 



012526 



012526 020037 000202' 

012532 001411 

012534 020037 000204' 

012540 103432 

012542 020037 000206' 

012546 101005 

012550 163700 000204' 

012554 000422 

012556 005000 

012560 000420 



012562 020037 000210' 

012566 001413 

012570 020037 000212' 

012574 103414 

012576 020037 000214' 

012602 101011 

012604 163700 000212' 

012610 062700 000010 

012614 000402 

012616 012700 000010 



012622 000241 
012624 000401 



012626 000261 



012630 000207 



. SBTTL CHKCLD — See if a device name is a CL or CI unit 

Determine if a rad50 device and unit name is a CL or CI device. 

Inputs: 
RO = Rad50 device spec 

Outputs: 
C-flag set ==> Not a CL or CI unit 
C-flag cleared ==> This is a CL or CI unit 
RO = CL unit number <0-15) 

CHKCLD: 

See if this is a CL unit 



1$: 



CMP 

BEQ 

CMP 

BLO 

CMP 

BHI 

SUB 

BR 

CLR 

BR 



RO, R50CL 

1« 

RO, R50CL0 

8* 

RO, R50CL7 

2* 

R50CL0, RO 

7* 

RO 

7* 



See if this is a CI unit 



3«: 



7$: 



CMP 

BEQ 

CMP 

BLO 

CMP 

BHI 

SUB 

ADD 

BR 

MOV 



RO, R50C1 

3* 

RO, R50C10 

8* 

RO, R50C17 

8* 

R50C10, RO 

#8. , RO 

7* 

#8. , RO 



This is a CL or CI unit 



CLC 
BR 



9* 



This is not a CL or CI unit 
8*: SEC 

Finished 
9*: RETURN 



; Is name "CL"? 

; Br if yes 

i Is name in the range CLO to CL7? 

; Br if not 



j Get CL unit number 
jCL = CLO 



i Is name "CI"? 

; Br if yes 

} Is name in the range CIO to C17? 

; Br if not 



i Get unit number 

i Bias by 8 for CI units 



iCl = CLS 



Signal success on return 



; Signal failure on return 



TSINIT - 
CVTDVU ■ 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
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012632 010246 
012634 010346 



012636 010003 

012640 005002 

012642 071227 000050 

012646 005703 

012650 001402 

012652 162703 000036 

012656 010300 

012660 000300 



012662 070227 000050 

012666 013702 0000000 

012672 020362 OOOOOOG 

012676 001407 

012700 162702 000002 

012704 002372 



012706 012700 177777 
012712 000261 
012714 000402 



012716 050200 
012720 000241 



012722 012603 
012724 012602 
012726 000207 



. SBTTL CVTDVU — Convert device name to dev index and unit # 

CVTDVU is called to convert a RAD50 device name into the corresponding 
device index number and unit number. 

Inputs: 
RO == RAD50 device name. 

Outputs: 
C-flag cleared ==> Conversion successful. 
C-flag set ==> Unable to find device name in tables. 
RO = Device index number (low byte), device unit number (high byte). 



CVTDVU: MOV 
MOV 



R2, -(SP) 
R3, -(SP) 



Split the unit number off of the full device name 



1*: 



MOV 


RO, R3 


CLR 


R2 


DIV 


#50, R2 


TST 


R3 


BEQ 


1* 


SUB 


#36, R3 


MOV 


R3, RO 


SWAB 


RO 



Get full device name 

Set up for divide 

Split name and unit (RO=name, Rl=unit) 

Was a unit number specified? 

Br if not 

Convert unit number to binary value 

Get unit number 

Position to high-order byte 



Look up the device name to get the device index 



MUL #50, R2 

MOV NUMDEV, R2 

2*: CMP R3, PNAME<R2) 

BEQ 3* 

SUB #2, R2 

BGE 2$ 



; Nouj get the device name without unit number 

; Get index number of last device 

i Search for device in name table 

i Br if found it 

i Try next device 

; Loop if more to check 



Error, cannot find device name in tables 

#-1, RO 

9* 
Found the device in the tables 



MOV 
SEC 
BR 



i Set device # = unit # = -1 
.Signal error on return 



3«: 



9*: 



BIS 


R2, RO 


CLC 




Finished 




MOV 


(SP)+, R3 


MOV 


(SP)+, R2 


RETURN 





iCombine device # and unit # 
i Signal success on return 



TSINIT - 
FORCED - 

1 
2 
3 
4 
5 
6 
7 
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8 012730 

9 012732 

10 012734 

11 012736 

12 012740 

13 012742 

14 012746 

15 012750 

16 012752 

17 012754 

18 012756 

19 012762 

20 012764 

21 012766 

22 012770 

23 012772 

24 012776 

25 013000 

26 013002 

27 013004 



010346 
010446 
010546 
011305 
005004 
071427 
005705 
001012 
010405 
005004 
071427 
005704 
001404 
005705 
001402 
062713 
012605 
012604 
012603 
000207 



. SBTTL FORCEO 



Force a 2-char dev name to unit 



Inputs: R3 points to a RAD50 device name 



000050 



000050 



000036 



Outputs: If 
blank' 

FORCEO: MOV 
MOV 
MOV 
MOV 
CLR 
DIV 
TST 
BNE 
MOV 
CLR 
DIV 
TST 
BEQ 
TST 
BEQ 
ADD 

9*: MOV 
MOV 
MOV 
RETURN 



the 3rd char of the device name pointed to by R3 is 
then it is changed to 



R3, -(SP) 

R4, -(SP) 

R5, -(SP) 

<R3),R5 

R4 

#50. R4 

R5 

9* 

R4, R5 

R4 

#50, R4 

R4 



9* 
R5 
9* 
#'^R 



O, (R3) 



MOVE CURRENT DEV NAME TO R5 
SET UP FOR DIVIDE 
SEPARATE INTO NAME AND UNIT 
WAS 3RD CHAR BLANK? 
RETURN IF NOT 
GET HIGH 2 CHARS 
SET UP FOR ANOTHER DIVIDE 
SEPARATE 1 & 2 CHARS 
WAS CHAR 1 BLANK? 
EMPTY OR INVALID DEV NAME! 
WAS CHAR 2 BLANK? 

1-CHAR DEV NAME SHOULD BE INVALID??? 
i FORCE TO UNIT 



(SP)+,R5 
(SP)+>R4 
(SP>+, R3 



I 
I 
I 
I 
I 
t 
t 
< 

c 

< 
I 

€ 

I 

i 
i 
i 

4 

( 





TSINIT ■ 


— TSX s 


tartup initializ 




ALOCBF - 


-- Allocate buff 


er space 




1 
2 










3 










4 










5 










6 










7 










8 










9 










10 










11 










12 










13 










14 


013006 


010146 






15 










16 










17 










18 


013010 


010537 


ooooooe 




19 


013014 


062705 


OOOOOOC 




20 










21 










22 










23 


013020 


010537 


OOOOOOG 




24 


013024 


013701 


OOOOOOG 




25 


013030 


020137 


OOOOOOG 




26 


013034 


103002 






27 


013036 


013701 


OOOOOOG 




28 


013042 


070127 


OOOOOOG 




29 


013046 


060105 






30 
31 
32 
33 


013050 


010537 


OOOOOOG 




34 


013054 


012700 


OOOOOOC 




35 


013060 


003404 






36 


013062 


010537 


OOOOOOG 




37 


013066 


062705 


OOOOOOC 




38 










39 










40 










41 


013072 


013701 


OOOOOOG 




42 


013076 


001405 






43 


013100 


010537 


OOOOOOG 




44 


013104 


070127 


OOOOOOG 




45 


013110 


060105 






46 










47 










48 










49 


013112 


010537 


OOOOOOG 




50 


013116 


062705 


OOOOOOC 




51 










52 










53 










54 


013122 


010537 


OOOOOOG 




55 


013126 


013701 


OOOOOOG 




56 


013132 


062701 


OOOOOOG 




57 


013136 


070127 


OOOOOOG 
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. SBTTL ALOCBF 



Allocate buffer space 



ALOCBF is called to allocate space for buffers. The allocated space 
is not initialized but simply reserved. 

Inputs: 
R5 = Start of area to allocate buffer space in. 

Outputs: 
R5 = Address beyond end of buffer area. 
CHNBAS = Address of base of I/O channel space. 
CHNEND = Address past end of I/O channel space. 

ALOCBF: MOV R1,~<SP) 

Assign space for I/O queue elements. 

MOV R5, FREIOQ i START OF I/O QUEUE SPACE 

ADD #I0QSIZ*NUMI0Q.R5; RESERVE SPACE FOR I/O QUEUE ELEMENTS 



Assign space for shared PLAS region control blocks 



13*: 



MOV 


R5, SHRRCB 


MOV 


VNGR,R1 


CMP 


Rl, VMXWIN 


BHIS 


13* 


MOV 


VMXWIN, Rl 


MUL 


#RC**SZ,R1 


ADD 


R1,R5 


MOV 


R5, SHRRCN 



Start of area for RGB's 

Get number of RGB's uianted 

Must have one for each display mindoui 

Br if ok 

Force one for each uiindouj 

Multiply by size of each block 

Allocate space for RGB's 

Address of end of region 



Assign space for fork blocks 



MOV #<NUMFRK-FRKGEN>, RO ; Get # fork blocks to allocate 

BLE 11* ; Br if none to allocate 

MOV R5, FRKINI i Set pointer to start of area 

ADD #«NUMFRK-FRKGEN>*FQ**SZ>, R5 i Reserve space for fork blocks 

Assign space for job monitoring control blocks 



11*: MOV VMXMON, Rl 

BEQ 10* 

MOV R5. MONFQH 

MUL #JM**SZ,R1 

ADD R1,R5 



j Any job monitoring blocks wanted? 

; Br if not 

; Start of job monitoring control blocks 

; Compute space needed for control blocks 

iAllocate the space 



Allocate space for system message buffers. 

10*: MOV R5, SNMSHD i HEAD OF SYSTEM MESSAGE BUFFER AREA 
ADD #<NMSNMB*SB**SZ>, R5; RESERVE ROOM FOR MESSAGE BUFFERS 



Allocate space for INSTALLed program table 



MOV R5, INSTBL 

MOV VNUIP,R1 

ADD #NSIP,R1 

MUL #II**SZ>R1 



Base of table 

# slots for user installed programs 
Add # slots for system programs 
Multiply by size of each slot 



I 
I 
I 
I 
I 
I 
I 
< 
i 

i 
i 
€ 
i 
I 

€ 



TSINIT - 
ALOCBF - 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

SO 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



— TSX startup initializ 

— Allocate buffer space 
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013142 
013144 



013150 
013154 
013160 
013164 
013166 



013172 
013176 
013200 
013204 



013210 
013214 
013216 
013222 
013226 
013230 



013234 
013240 
013244 
013246 
013252 
013256 
013262 



013264 
013270 
013274 
013276 
013302 
013304 
013312 
013314 
013322 
013324 
013330 
013334 
013340 
013344 
013350 
013354 



060105 
010537 



010537 
012701 
070137 
060105 
010537 



005737 
001404 
010537 
062705 



013701 
001407 
070127 
010537 
060105 
010537 



012701 
020127 
101007 
010561 
062705 
062701 
000766 



012701 
020127 
101403 
020127 
103422 
026127 
001404 
026127 
001012 
010561 
010561 
062705 
010561 
062705 
062701 
020127 



OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 



OOOOOOG 

OOOOOOG 
OOOOOOC 



OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 



000002 
OOOOOOG 

OOOOOOG 

000020 

000002 



000002 
OOOOOOG 



ADD R1,R5 
MOV R5, INSTBN 



{Allocate space for table 

i Pointer past end of INSTALL table 



Allocate space for device mount entries 



MOV R5, CSHDEV 

MOV #CD**SZ,R1 

MUL VMXCSH, Rl 

ADD R1,R5 

MOV R5, CSHDVN 



i Point to start of area 

i Get size of each entry 

/Multiply by number of entries 

i Reserve space for table 

» Save pointer past end of table 



Allocate space for data cache control blocks 

TST CSHALC ; Is data caching wanted? 

BEQ 12* ; Br if not 

MOV R5, CCBHD i Head of free list area 

ADD #NUMCCB*CC**SZ. R5 ; Allocate space for control blocks 

Allocate space for spool file control blocks 



12*: MOV NSPLFL,R1 

BEQ 1* 

MUL #SFCBSZ,R1 

MOV R5, SFCB 

ADD R1,R5 

MOV R5, SFCBND 



i Get # spool file control blocks needed 

i Br if none needed 

; Compute space needed by control blocks 

; Base of control block area 

iAllocate space for control blocks 

i End of control block area 



Allocate space for a 16 byte vector for each multiplexer. 
This vector is used to map from the mux line number to the 
TSX-Plus logical line number. 



1*: MOV #2, Rl 

2*: CMP R1,#LSTMX 

BHI 5* 

MOV R5, MXLNT(Rl) 

ADD #16. ,R5 

ADD #2, Rl 

BR 2* 



START WITH FIRST MUX 

HAVE WE DONE ALL MUX'S? 

BR IF YES 

SET ADDRESS OF START OF VECTOR 

RESERVE SPACE FOR VECTOR 

ADVANCE TO NEXT MUX 



Allocate buffers to hold characters for DMA transfers to DHll multiplexers 



5*: 
6*: 



OOOOOOG 

OOOOOOG OOOOOOG 3*: 

OOOOOOG OOOOOOG 

OOOOOOG 8*: 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000002 7*: 

OOOOOOG 



MOV #2, Rl 

CMP R1,#LSTPL 

BLOS 3* 

CMP R1,#FSTI0L 

BLO 7* 

CMP LCDTYP(Rl), 

BEQ 8* 

CMP LCDTYP(Rl), 

BNE 7* 

MOV R5, LDHB1B<R 

MOV R5, LDHB1P<R 

ADD #DHBFS2, R5 

MOV R5iLDHB2B(R 

ADD #DHBFSZ, R5 

ADD #2, Rl 

CMP R 1 , #LSTHL 



i Star 
} Is t 
; Br i 
; Is t 
; Br i 

#CDX*DH } I 
> Br i 

#CDX*VH ; I 
Br i 



t with first line 

his a primary time-sharing line? 

f yes 

his a CL line? 

f not 

line connected 



1) 
1) 

1) 



this 
yes 
this 
not 



line connected 



to 
to 



Set address of start of buffer 

Initialize pointer into buffer 

Reserve space for buffer 

Set address of start of buffer 

Reserve space for buffer 

Get # of next line 

Have we checked all lines? 



DHll? 

DHVll? 

1 
1 



I 

» I 

I 

i 



TSINIT - 


— TSX s 


tartup initializ 


ALOCBF - 


— Allocate buff 


er space 


115 


013360 


101743 




116 


013362 


005205 




117 


013364 


042705 


000001 


118 








119 








120 








121 


013370 


105737 


OOOOOOG 


122 


013374 


001415 




123 


013376 


013700 


OOOOOOG 


124 


013402 


006300 




125 


013404 


010537 


OOOOOOG 


126 


013410 


060005 




127 


013412 


010537 


OOOOOOG 


128 


013416 


060005 




129 


013420 


010537 


OOOOOOG 


130 


013424 


062705 


OOOOOOC 


131 








132 








133 








134 


013430 


010537 


OOOOOOG 


135 


013434 


062705 


001400 


136 








137 








138 








139 


013440 


010500 




140 


013442 


004737 


027622 ' 


141 








142 








143 








144 


013446 


012601 




145 


013450 


000207 
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BLOS 

INC 

BIG 



6* 
R5 
#liR5 



i Br if not 

i Bound up to next word 



Allocate space for tables that keep track of space in swap file 

Is this a swapping system? 

Br if not 

Get # slots in swap file 

Allocate 2 bytes per slot 

Start of table with starting block #'5 

Allocate space 

Start of table with job #'5 

Allocate space 

Pointer to area with command packets 

Allocate space for swap command packets 



TSTB 


VSWPFL 


BEQ 


14* 


MOV 


VSWPSL, RO 


ASL 


RO 


MOV 


R5, SWPPOS 


ADD 


RO, R5 


MOV 


R5, SWPJOB 


ADD 


RO, R5 


MOV 


R5, SCPFHD 


ADD 


#NSCP«SP**SZ, R5 



Allocate a 512-byte buffer to use to access job context blocks 



14*: 



MOV 
ADD 



R5, CXTBUF 
#1400, R5 



Make sure TSX is not too big. 



MOV 


R5, RO 


CALL 


CHKMEM 


-inished 




MOV 


<SP)+, Rl 


RETURN 





» Set address of buffer 

j Reserve space for the buffer 



; GET CURRENT MEMORY ADDRESS 
} CHECK FOR SPACE OVERFLOW 



TSINIT ■ 


— TSX s 


tartup initializ 


ALCSLO ■ 


— Allocate silo 


buffers 


1 
2 








3 








4 








5 








6 








7 








8 








9 








10 








11 








12 


013452 


010146 




13 


013454 


010246 




14 








15 








16 








17 


013456 


012701 


OOOOOOC 


18 








19 








20 








21 


013462 


012702 


000040 


22 


013466 


020127 


OOOOOOG 


23 


013472 


101405 




24 


013474 


020127 


OOOOOOG 


25 


013500 


103463 




26 


013502 


012702 


000020 


27 








28 








29 








30 


013506 


016100 


OOOOOOG 


31 


013512 


001002 




32 


013514 


013700 


OOOOOOG 


33 


013520 


020027 


OOOOOOG 


34 


013524 


101402 




35 


013526 


012700 


OOOOOOG 


36 


013532 


020002 




37 


013534 


103001 




38 


013536 


010200 




39 


013540 


010061 


OOOOOOG 


40 








41 








42 








43 


013544 


010561 


OOOOOOG 


44 


013550 


010561 


OOOOOOG 


45 


013554 


010561 


OOOOOOG 


46 


013560 


010061 


OOOOOOG 


47 


013564 


060005 




48 


013566 


010561 


OOOOOOG 


49 








50 








51 








52 


013572 


006200 




53 


013574 


162700 


000002 


54 


013600 


116102 


OOOOOOG 


55 


013604 


001002 




56 


013606 


113702 


OOOOOOG 


57 


013612 


020200 
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for lines 



SBTTL ALCSLO — Allocate silo buffers for lines 



Allocate the silo buffers that are used to hold characters as they 
are received from serial lines. 



Inputs: 
R5 = Current pointer to start of free memorii. 

Outputs: 
R5 = Neuj pointer to start of free memory. 



ALCSLO: MOV 
MOV 



R1,-<SP) 
R2, -(SP> 



Begin loop to check each line 

MOV #LSTHL, Rl i Get index to last hardware line 

Only allocate silo buffers for real lines 

1*: MOV #32. , R2 i Set minimum size for time-sharing lines 

Is this a primary line? 
Br if yes 
Is this a CL line? 
Br if not 
Set minimum size for CL lines 

Determine how much space to allocate 



MOV 


#32. , R2 


CMP 


R1,#LSTPL 


BLOS 


2« 


CMP 


R1,#FSTI0L 


BLO 


9* 


MOV 


#16. ,R2 



2*: 



8*: 



3*: 



4*: 



MOV 


LHIRBA(R1),R0 


BNE 


8* 


MOV 


VNCSLO, RO 


CMP 


RO. #MAXSLO 


BLOS 


3* 


MOV 


#MAXSLO, RO 


CMP 


RO, R2 


BHIS 


4* 


MOV 


R2, RO 


MOV 


RO, LHIRBA<R1) 



Allocate the space 

MOV R5, LHIRBB(Rl) 

MOV R5, LHIRBP(Rl) 

MOV R5, LHIRBG<R1) 

MOV RO, LHIRBS<R1) 

ADD RO, R5 

MOV R5, LHIRBE<R1) 



Get requested size 

Br if a size was specified 

Use default value 

Constrain size to 255 bytes 

Br if ok 

Reduce size 

Compare with acceptable minimum 

Br if ok 

Use minimum size allowed 

Set # bytes to be allocated for silo 



Set base address of buffer 

Init pointer where to store next char 

Init pointer where to get next char 

Set # free bytes in buffer 

Allocate space for buffer 

Set address beyond end of buffer 



Set up control information about when to send XON and XOFF 

Get 1/2 of buffer size 
Minus two characters 
Get specified size for XOFF point 
Br if value specified 
Try default 
5*: CMP R2, RO ; Is specified value ok? 



ASR 


RO 


SUB 


#2, RO 


MOVB 


LHIRBC<R1),R2 


BNE 


5* 


MOVB 


VNCXOF, R2 


CMP 


R2, RO 



TSINIT — TSX startup initializ HACRO V05. 04 
ALCSLO — Allocate silo buffers for lines 



58 013614 

59 013616 

60 013620 

61 013624 

62 013630 

63 013632 

64 013636 

65 013640 

66 013642 

67 013644 
68 

69 
70 

71 013650 

72 013654 
73 

74 
75 

76 013656 

77 013660 

78 013664 

79 013666 

80 013670 



101401 
010002 
110261 
116102 
001002 
113702 
020200 
101401 
010002 
110261 



162701 
003302 



005205 
042705 
012602 
012601 
000207 



0000000 
00000 IG 

0000000 



0000010 



ooooo; 



6*: 



7*: 



10*: 



9*: 



nday 


14-Dec-87 08: 35 P 


BLDS 


6« 


MOV 


RO, R2 


MOVB 


R2, LHIRBCCRl) 


MOVE 


LHIRBC+1<R1),R2 


BNE 


7* 


MOVB 


VNCXON, R2 


CMP 


R2. RO 


BLOS 


10* 


MOV 


RO, R2 


MOVB 


R2, LHIRBC+KRl) 



Do the next line 



000001 



SUB 


#2, Rl 


BGT 


1* 


Finished 




INC 


R5 


BIC 


#1,R5 


MOV 


<SP>+, R2 


MOV 


<SP)+, Rl 


RETURN 
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Br if yes 

No* use size/2-2 

Set # of chars when XOFF sent 

Get specified size for XON point 

Br if a value was specified 

Try default 

Is specified value okT' 

Br if ok 

No* use size/2-2 

Set # of chars when XON sent 



i Get next line index number 
i Loop if more to do 



i Force R5 to be even 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 

12 013672 

13 013674 

14 013676 
15 

16 
17 
18 

19 013700 

20 013704 

21 013712 

22 013714 

23 013720 

24 013722 

25 013726 

26 013730 

27 013734 

28 013740 

29 013744 

30 013750 

31 013754 

32 013756 

33 013762 

34 013764 

35 013770 

36 013774 

37 013776 

38 014000 

39 014004 

40 014010 

41 014014 

42 014020 

43 014024 

44 014030 

45 014032 

46 014036 

47 014042 
48 

49 
50 

51 014044 

52 014050 

53 014052 

54 014060 

55 014066 

56 014072 

57 014076 



SBTTL ALBFX 



Allocate buffers in extended memory region 



010146 
010246 
010346 



012701 
032761 
001047 
020127 
103403 
020127 
101441 
010561 
012702 
010261 
016100 
010061 
060002 
010261 
010003 
062703 
072327 
060302 
060300 
010261 
066100 
066102 
010261 
062700 
072027 
060005 
062701 
020127 
101720 



005737 
001451 
013737 
013737 
010537 
012701 
070137 



ALBFX is called to allocate space for buffers that are not constrained 
to fit in the 40Kb region that TSX-Plus occupies. 

Inputs: 
R5 = 64-Byte address of base of free memory region. 

Outputs: 
R5 = Address above top of buffers allocated. 



ALBFX: MOV 
MOV 
MOV 



R 1 , - < SP > 
R2, -<SP) 
R3, -(SP) 



000002 

OOOOOOG OOOOOOG 3*: 

0000000 

OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 

000007 
177775 



OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000077 

177772 

000002 
OOOOOOG 



1*: 



2*: 



OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



Allocate character buffers for all lines 

Note: Character buffer space will be accessed by mapping through PAR 6. 

GET 1ST JOB INDEX NUMBER 

IS THIS LINE INSTALLED? 

BR IF NOT — DON'T ALLOCATE ANY BUFFER SPACE 

IS THIS A DETACHED JOB LINE? 

BR IF NOT 

DETACHED JOB LINE? 

BR IF DETACHED JOB — DON'T ALLOCATE BUFFERS 

SET PHYSICAL MEMORY PAR OFFSET FOR BUFFER 

GET VIRTUAL MEMORY ADDRESS FOR BASE OF PAR6 

INPUT BUFFER STARTS AT BASE OF PAR6 REGION 

GET # BYTES FOR INPUT BUFFER 

SET # FREE BYTES IN INPUT BUFFER 

ADVANCE VIRTUAL ADDRESS 

POINTS PAST END OF INPUT BUFFER 

Get # bytes in input buffer 

Bound up to multiple of 8 

Get # bytes needed in activation-flag buffer 

Reserve space for activation-flag buffer 

Accumulate total buffer space 

POINTS TO START OF OUTPUT BUFFER AREA 

ACCUMULATE # BYTES IN BOTH BUFFERS 

ADVANCE VIRTUAL ADDRESS COUNTER 

SAVE ADDRESS OF END OF OUTPUT BUFFER 

BOUND UP TO MULTIPLE OF 64 BYTES 

CONVERT TO # 64-BYTE BLOCKS ALLOCATED 

ADVANCE PHYSICAL MEMORY PAR ADDRESS 

ADVANCE LINE NUMBER 

HAVE WE DONE ALL LINES YET? 

BR IF MORE TO DO 

Allocate space for shared file record locking data structures 

Shared file support wanted? 

Br if not 

Set number of data cache blocks 

Set number of free CDB's 

Set phys address of base of area 

Size of an FDB 

Times number of FDB's 



MOV 


#2. Rl 


BIT 


#*DEAD, LSW3<R1) 


BNE 


2* 


CMP 


R1,#FSTDL 


BLO 


1* 


CMP 


R1,#LSTDL 


BLOS 


2* 


MOV 


R5, LTTPAR<R1) 


MOV 


#VPAR6, R2 


MOV 


R2, LINBUF(Rl) 


MOV 


LINSIZ<R1>,R0 


MOV 


RO, LINSPC<R1) 


ADD 


RO. R2 


MOV 


R2, LINEND<R1) 


MOV 


RO, R3 


ADD 


#7, R3 


ASH 


#-3> R3 


ADD 


R3, R2 


ADD 


R3, RO 


MOV 


R2, L0TBUF<R1) 


ADD 


LOTSIZ(Rl)iRO 


ADD 


L0TSIZ(R1>,R2 


MOV 


R2, LOTEND(Rl) 


ADD 


#77, RO 


ASH 


#-6, RO 


ADD 


RO, R5 


ADD 


#2, Rl 


CMP 


R1,#LSTSL 


BLOS 


3* 



TST 


VMXSF 


BEQ 


5* 


MOV 


VNUMDC, NUMDCD 


MOV 


VMXSFC, NUMCDB 


MOV 


R5, LOKMEM 


MOV 


#FF**SZ,R1 


MUL 


VMXSF, Rl 



TSINIT - 


— TSX s 


tartup initializ 


ALBFX - 


— Allocate buff 


ers in e 


58 


014102 


062701 


ooooooc 


59 


014106 


013703 


OOOOOOG 


60 


014112 


006303 




61 


014114 


062703 


OOOOOOG 


62 


014120 


070337 


OOOOOOG 


63 


014124 


060301 




64 


014126 


012703 


OOOOOOG 


65 


014132 


070337 


OOOOOOG 


66 


014136 


060301 




67 


014140 


062701 


000100 


68 


014144 


072127 


177772 


69 


014150 


042701 


176000 


70 


014154 


060105 




71 


014156 


010537 


OOOOOOG 


72 


014162 


013701 


OOOOOOG 


73 


014166 


070127 


000010 


74 


014172 


060105 




75 








76 








77 








78 


014174 


105737 


OOOOOOG 


79 


014200 


001415 




80 


014202 


013701 


OOOOOOG 


81 


014206 


001412 




82 


014210 


010561 


OOOOOOG 


83 


014214 


113703 


OOOOOOG 


84 


014220 


072327 


000003 


85 


014224 


060305 




86 


014226 


016101 


OOOOOOG 


87 


014232 


001366 




88 








89 








90 








91 


014234 


012701 


OOOOOOG 


92 


014240 


001407 




93 


014242 


010537 


OOOOOOG 


94 


014246 


062701 


000077 


95 


014252 


072127 


177772 


96 


014256 


060105 




97 








98 








99 








100 


014260 


012603 




101 


014262 


012602 




102 


014264 


012601 




103 


014266 


000207 
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extended memory region 



ADD #<NLINES»FW**SZ>, 

MOV VMLBLK, R3 

ASL R3 

ADD #FC*LBN, R3 

MUL VMXSFC, R3 

ADD R3, Rl 

MOV #DC**SZ, R3 

MUL VNUMDC, R3 

ADD R3, Rl 

ADD #64. ,R1 

ASH #-6, R 1 

BIC #176000. Rl 

ADD R1,R5 

MOV R5. LOKCSH 

MOV VNUMDCiRl 

MUL #8. ,R1 

ADD R1,R5 



Rl i Spa 
Max bio 
Two byt 
Add bas 
Times n 
Accumul 
Size of 
Times n 
Reserve 
Bound u 
Convert 
Clear s 
Reserve 
Save po 
# share 
8 64-by 
Reserve 



CB needed for wait blocks 

cks a CDB may hold locked 

es per entry 

e size of a CDB 

umber of shared file channels 

ate space needed 

a data cache descriptor 
umber of data cache entries 

space for data cache descriptors 
p to 64 byte unit 

to # 64 byte units 
ign extension 

space for data structures 
inter to start of cache buffer area 
d-file data cache blocks wanted 
te blocks each (512 bytes each) 

space for data cache buffers 



5*: 



6*: 



7«: 



Allocate space for mapped I/O buffers 

Are any mapped I/O buffers needed? 

Br if not 

Point to 1st mapped I/O control block 

Br if no more buffers needed 

Set address of base of buffer 

Get # blocks for buffer 

Convert to # 64-byte pages 

Allocate space for buffer 

Get address of next control block 

Loop if more to allocate 

Allocate space for performance monitor data buffer if it is wanted. 

;DID USER GEN IN PERFORMANCE MONITOR FEATURE? 

fBR IF NOT 
SET BASE ADDRESS OF PM BUFFER 
BOUND SIZE UP TO 64-BYTE MULTIPLE 
CONVERT TO # 64-BYTE BLOCKS 
ADVANCE FREE MEMORY POINTER 



TSTB 


MIOFLG 


BEQ 


7* 


MOV 


MIOBHD. Rl 


BEQ 


7« 


MOV 


R5. MI*SBP(R1) 


MOVB 


VMIOSZ, R3 


ASH 


#3, R3 


ADD 


R3. R5 


MOV 


MI*LNK<R1),R1 


BNE 


6$ 



9$: 



MOV 


#PMSIZE, Rl 


BEQ 


9* 


MOV 


R5, PMPAR 


ADD 


#77, Rl 


ASH 


#-6, Rl 


ADD 


R1,R5 


Finished 




MOV 


(SP)+, R3 


MOV 


(SP)+, R2 


MOV 


<SP)+,R1 


RETURN 





TSINIT - 


— TSX s 


tartup initializ MACRO VOE 


OPNKMN - 


— Open 


channel 


to TSKMON 


1 
2 








* 3 








4 








5 








i 6 








7 








8 








i 9 








10 








11 








< 12 








13 








14 








< 15 








16 








17 


014270 


010246 


C 


i 18 






} 


19 






i 


20 






; 


i 21 


014272 






22 


014312 


103517 




23 








< 24 








25 








26 


014314 


013702 


000152' 


1 27 


014320 






28 






j 


29 


014354 


016200 


000050 


1 30 


014360 


062700 


000003 


31 


014364 


042700 


000001 


32 


014370 


010037 


OOOOOOG 


1 33 






i 


34 


014374 


162700 


OOOOOOG 


35 


014400 


010037 


OOOOOOG 


4 36 


014404 


062700 


000777 


37 


014410 


000241 




38 


014412 


006000 




1 39 


014414 


000300 




40 


014416 


042700 


177400 


41 


014422 


063700 


OOOOOOG 


< 42 


014426 


010037 


OOOOOOG 


43 






} 


44 


014432 


016237 


000042 OOOOOOG 


< 45 






) 


46 


014440 


016237 


000040 OOOOOOG 


47 






i 


i 48 






> 


49 






i 


50 






i 


i 51 






* 


52 


014446 


016237 


000300 OOOOOOG 


53 








< 54 








55 








56 


014454 


012700 


OOOOOOG 


i 57 


014460 


013702 


000072 ' 



SBTTL OPNKMN — Open channel to TSKMON 



OPNKMN is called to open an I/O channel to TSKMON SAV file and to 
set up information about TSKMON. 

Inputs: 
R5 = Address of base of free memory area 

Outputs: 
KMNCHN = Saved status of channel to use to access TSKMON SAV file. 
KMNTOP = Top of memory address for TSKMON. 
KMNHI = Top address of TSKMON - KMNBAS. 

KMNPGS = Number of 256-uJord memory pages needed for TSKMON & context area 
KMNSTK = Address of stack to use while TSKMON running. 
KMNSTR = Starting address of TSKMON. 

OPNKMN: MOV R2i-(SP) 

Lookup TSKMON file. 

.LOOKUP #AREA. #1,#KMNNAM i TRY TO FILE KMON SAV FILE 
BCS 9* i BR IF NOT THERE 

Read block of save file and extract some information. 

MOV WRKBUF, R2 i Point to work buffer 
. READW #AREA, #1,R2, #256. -#0 ; READ BLOCK OF SAV FILE 
Determine size of kmon 

GET TOP ADDRESS OF KMON 
BOUND UP TO NEXT WORD 
FORCE EVEN 

lemory pages needed while kmon running. 
BASE ADDRESS OF KMON 
TOP OF TSKMON - KMNBAS 
BOUND UP TO PAGE SIZE 

iCVT TO # WORDS 
jCVT to # PAGES 

i# PAGES NEEDED FOR JOB CONTEXT AREA 
i# 256-wd pages needed for kmon + context area 
Determine Kmon stack pointer. 

MOV 42(R2), KMNSTK ; INITIAL STACK POINTER FOR KMON 
Determine Kmon starting address. 

MOV 40(R2)> KMNSTR ; STARTING ADDRESS 

Set up demo-system time limit 

(If this is a demo version of TSX-Plus* the number of minutes the system 
is to run before it crashes is stored in location 300 of TSKMON) 

MOV 300(R2).DTLX i SET DEMO TIME-LIMIT 

Now save status of channel so we can do a reopen when we need kmon. 



MOV 


50(R2),R0 


ADD 


#3, RO 


BIC 


#1,R0 


MOV 


RO, KMNTOP 


mine 


number of 256 


SUB 


#KMNBAS, RO 


MOV 


RO, KMNHI 


ADD 


#511. ,R0 


CLC 




ROR 


RO 


SWAB 


RO 


BIC 


#■■^0377, RO 


ADD 


CXTPAG. RO 


MOV 


RO, KMNPGS 



MOV #KMNCHN, RO 
MOV KMNNAM, R2 



; GET KMON CHANNEL SAVE AREA 
;GET KMON DEVICE NAME 



I 

I 



TSINIT — TSX startup initializ MACRO 
OPNKMN — Open channel to TSKMON 



58 014464 

59 

60 

61 

62 014470 

63 014510 

64 014512 

65 014516 

66 014522 
67 

68 
69 

70 014526 

71 014530 
72 

73 
74 

75 014532 

76 014540 

77 014546 
78 

79 
80 

81 014552 

82 014560 

83 014566 



004737 027126' 



103410 

012700 OOOOOOG 

013702 000102' 

004737 027126' 



012602 
000207 



000137 004216' 
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CALL SETCHN ; SAVE CHANNEL STATUS 

Lookup CCL. SAV and save channel status for it. 



LOOKUP SY: CCL. SAV 
BR IF CAN'T FIND CCL 
CHANNEL SAVE AREA 
DEVICE NAME 
SAVE CHANNEL STATUS 



10*: 



. LOOKUP 


#AREA, #1,#CCLNAM 


BCS 


8* 


MOV 


#CCLSAV, RO 


MOV 


CCLNAM, R2 


CALL 


SETCHN 


Finished 




: MOV 


<SP)+, R2 


RETURN 





Error: We could not find SY: CCL. SAV 



8*: 



. PRINT #TSXHD 
.PRINT #NOCCL 
JMP INISTP 



; PRINT ERROR MESSAGE 
; ABORT INITIALIZATION 



000137 004216' 



Error: We could not locate TSKMON SAV file. 

9*: PRINT #TSXHD ; PRINT ERROR MESSAGE 

.PRINT #NOKMON 
JMP INISTP i ABORT INITIALIZATION 
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CLINIT — Initialize CL handier 
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014572 
014574 
014576 



014600 
014602 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



23 014606 

24 014612 

25 014614 

26 014622 

27 014626 

28 014632 

29 014634 

30 014640 

31 014642 

32 014646 
33 

34 
35 

36 014650 

37 014654 

38 014660 

39 014664 

40 014670 

41 014672 

42 014674 

43 014700 

44 014704 

45 014710 

46 014712 

47 014716 
48 

49 
50 

51 014720 

52 014724 

53 014730 

54 014734 
55 

56 
57 



010146 
010246 
010346 



005003 
012701 



016102 
001416 
012762 
010162 
005762 
001006 
005762 
001003 
005061 
000472 



010561 
010561 
010561 
012700 
005702 
001402 
016200 
010061 
010061 
060005 
010561 
060003 



010561 
005061 
062705 
062703 



. SBTTL CLINIT — Initialize CL handler 

Perform initialization for CL (Communication Line) handler 

Inputs: 
R5 = Address of start of free memory area. 

Outputs: 
R5 = Address of neti» start of free memory area. 



CLINIT: MOV 
MOV 
MOV 



R 1 , - < SP ) 
R2, -<SP) 
R3, -(SP) 



OOOOOOC 



Initialize tables for each CL unit 

CLR R3 ; Accumulate ring buffer sizes in R3 

MOV #2*<CLT0TL-1>, Rl^Get index # of last CL unit 



See if this CL unit is connected to hardware or 
connected later to a time-sharing line. 



is free to be 



OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 



1*: MOV CL*LIX<R1),R2 

BEQ 5* 

MOV #*SXON, LSW10(R2) 

MOV R1,LCLUNT(R2> 

TST RSR(R2) 

BNE 5$ 

TST LMXNUM(R2) 

BNE 5* 

CLR CL*EPS(R1) 

BR 4$ 



unit associated uiith a line? 



Is this CL 

Br if not 

Send XON when 

Associate the 

Does this 

Br if yes 

Is this 

Br if yes 

Say no endstring buffer 

Line is not genned in 



uie start the line 

CL unit uiith this 

unit have a specified 

a mux line? 



1 ine 

RSR addr? 



Allocate and set up pointers for the output ring buffers 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 



5*: 



6*: 



MOV R5, CL*0RB(R1) 

MOV R5, CL*0RP(R1) 

MOV R5, CL*0RG<R1) 

MOV #CLORSZ, RO 

TST R2 

BEQ 6$ 

MOV L0TSIZ(R2),R0 

MOV RO, CL*0RA(R1) 

MOV RO, CL*0RS<R1) 

ADD RO, R5 

MOV R5, CL*0RE<R1) 

ADD RO, R3 



Start of output ring buffer 

Input character pointer 

Next available character pointer 

Get default output ring buffer size 

Is this CL unit connected to a line? 

Br if not 

Get size of output ring buffer 

Set size of output ring buffer 

Available space in ring buffer 

Point beyond end of ring buffer 

Address past end of ring buffer 

Accumulate size of output ring buffers 



Allocate space for end-of-file string buffer 



OOOOOOG 
OOOOOOG 
00000 IG 
00000 IG 



MOV R5, CL*EPS<R1) 

CLR CL*EPP(R1) 

ADD #<CLE0FS+1>, R5 

ADD #<CLE0FS+1>, R3 



i Set pointer to end~of-file string buffer 
i No string to print yet 
J Reserve space for buffer 
; Accumulate buffer space 



Initialize end-of-file form-feed count 



I 
i 
I 
< 

i 
I 
I 
I 
I 
I 



TSINIT 
CLINIT - 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 
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- Initialize CL handler 
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014740 005061 OOOOOOC 



014744 
014750 
014752 
014754 
014760 
014764 
014766 
014772 
014776 
015000 
015004 
015010 
015012 
015016 



015034 
015040 



015042 
015050 
015054 
015060 
015066 
015074 
015102 
015106 
015114 
015120 
015124 
015130 
015132 



015136 
015144 
015146 
015154 
015160 
015164 



012700 
005702 
001421 
016202 
032702 
001402 
052700 
032702 
001402 
052700 
032702 
001402 
052700 
010061 



OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 



CLR CL*EPN(R1) 

Initialize option word 

MOV #<CO*DEF>, RO 

TST R2 

BEQ 7* 

MOV ILSW2(R2),R2 

BIT #*TAB,R2 

BEQ 2* 

BIS #CO*TAB,RO 

BIT #*FORM, R2 

BEQ 3* 

BIS #CO*FF, RO 

3*; BIT #*8BIT, R2 

BEQ 7* 

BIS #C0*8BT, RO 

MOV RO. CL*OPT(Ri> 



2*: 



7*: 



i Init ENDPAGE=:0 



Get default option flags 

Is this CL unit connected with a line? 

Br if not 

Get line options 

Does hardware support tabs? 

Br if not 

Set hardware-tab flag 

Does hardware support form feeds? 

Br if not 

Set hardware-form-feed flag 

Does hardware want 8 bit support? 

Br if not 

Enable 8 bit support for CL line 

Set options for this CL line 



012761 000102 OOOOOOG 



015030 005061 OOOOOOG 



Initialize page length 

MOV #66. , CL*LEN<R1) ; Say page length == 66 lines 
Initialize status flags 



CLR CL*STA(R1) 
Do next line 



162701 
002262 



062737 
013701 
010137 
013761 
012761 
012761 
005061 
012761 
062703 
062703 
010361 
005205 
042705 



000002 



4*: 



SUB 
BGE 



#2iRl 
1* 



; Initialize status flags 



» Get index # of next unit 

i Loop if more units to initialize 



OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 



101430 
062737 
013701 
010137 
013761 
012761 



000002 

OOOOOOG 

OOOOOOG 

000202 ' 

OOOOOOG 

OOOOOOC 

OOOOOOG 

000006G 

OOOOOOG 

OOOOOOC 

OOOOOOG 

000001 



OOOOOOG 000010 

000002 OOOOOOG 
OOOOOOG 
OOOOOOG 

000210' OOOOOOG 
OOOOOOG OOOOOOG 



Make a device table entry for "CL" device 

ADD #2, NUMDEV » One more device 

MOV NUMDEV. Rl .Get device table index 

MOV Rl.CLDEVX i Remember index number of CL device 

MOV R50CL, PNAME<R1) i Set device name ("CL") 

MOV #CLSTS, DVSTAT(Rl) i Set dev status flags 

MOV #<DX*NCA!DX*NMT!DX*NRD>, DVFLA0<R1) i Device info flags 

CLR DEVSIZ<R1> i Clear device size 

MOV #CLHEAD+6, HANENT(Rl) i Set handler entry point (4th word) 

ADD ttCLSIZE. R3 i Get size of handler 

ADD #«CLT0TL*46. >+<NI0L*32. ». R3 ; Add size of tables in TSGEN 

MOV R3i HANSIZ(Rl) i Set size of handler 

INC R5 iMake sure free-memory pointer is even 

BIC #1,R5 

Make a device table entry for CI if there are more than 8 CL units 

Are there more than 8 CL units? 

Br if not — Don't need CI 

One more device 

Get device table index 

Remember index number of CL device 

Set device name ("CI") 



CMP 


#CLTOTL, #8. 


BLOS 


13* 


ADD 


#2, NUMDEV 


MOV 


NUMDEV, Rl 


MOV 


R1,C1DEVX 


MOV 


R50C1.PNAME(R1) 


MOV 


#CLSTS, DVSTAT(R 



TSINIT — 
CLINIT — 

115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 



TSX startup initializ MACRO V05. 04 
Initialize CL handler 



015200 
015206 
015212 
015220 



015232 
015234 
015240 
015242 
015246 
015252 
015254 
015256 
015260 
015264 
015266 
015272 
015274 
015276 



015302 
015304 
015306 
015310 



012761 
005061 
012761 
012761 



105737 
001023 
113703 
000303 
1 53703 
012702 
020322 
001407 
005722 
020227 
103772 
012701 
000401 
011201 
110137 



012603 
012602 
012601 
000207 



OOOOOOC OOOOOOG 
OOOOOOG 

000006G OOOOOOG 
000004 OOOOOOG 
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MOV #<DX*NCA ! DX*NMT ! DX«NRD>, DVFLAG<R1 ) 

CLR DEVSIZ(Rl) i Clear device size 

MOV #CLHEAD+6, HANENT(Rl) ; Set handler entry 

MOV #4. ,HANSIZ(R1) i Set size of handler 



Device info flags 

point <4th uiord) 



OOOOOOG 

OOOOOOG 

OOOOOOG 
000522 ' 

000556 ' 
000021 

OOOOOOG 



Set the version 
VTCOM to see if 



13*: 


TSTB 


CLVERS 




BNE 


9* 




MOVB 


SYSVER, R3 




SWAB 


R3 




BISB 


SYSUPD> R3 




MOV 


#CLVTBL, R2 


10*: 


CMP 


R3, <R2) + 




BEQ 


12* 




TST 


(R2) + 




CMP 


R2, #CLVEND 




BLO 


10* 




MOV 


#17. ,R1 




BR 


11* 


12*: 


MOV 


(R2),R1 


11*: 


MOVB 


Rl, CLVERS 


i 

i F 

• 


inished 




9*: 


MOV 


<SP)+, R3 




MOV 


(SP)+, R2 




MOV 


(SP)+, Rl 




RETURN 





number to be returned by the . SPFUN used by 
it is matched to the correct version of XL/XC. 



Was a version specified in TSGEN? 

Br if yes 

Get current RT-11 version number 

Put in high order byte 

Put update number in low-order byte 

Point to table with CL version numbers 

Is this entry for our version? 

Br if yes 

Skip cell with CL version 

Checked all table entries? 

Loop if not 

Set default CL version if not found 

i Get correct CL version 
i Set CL version number 



f 

4 

i 
i 
« 
i 
i 
( 
I 

i 
I 
I 



TSINIT - 


-- TSX 5 


tartup initializ 


LDINIT - 

1 
2 
3 


— Determine LD 


translat 


4 
5 
6 
7 
8 


015312 


010146 




9 


015314 


113701 


OOOOOOG 


10 


015320 


001022 




11 


015322 


010246 




12 


015324 


010346 




13 


015326 


013703 


0000000 


14 


015332 


012701 


000001 


15 


015336 


012702 


000556' 


16 


015342 


022203 




17 


015344 


001404 




18 


015346 


005712 




19 


015350 


001374 




20 


015352 


012701 


000002 


21 


015356 


110137 


OOOOOOG 


22 


015362 


012603 




23 


015364 


012602 




24 


015366 


012601 




25 


015370 


000207 
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table format 



. SBTTL LDINIT — Determine LD translation table format 

RT-11 V5. 4 changed that format of the LD translation tables. 
Determine uhich version of RT-11 is being used and set the 
appropriate value for LDVERS to generate correct table 
format in response to LD . SPFUN 372 



LDINIT: MOV 
MOVE 
BNE 
MOV 
MOV 
MOV 
MOV 
MOV 

1*: CMP 
BEQ 
TST 
BNE 
MOV 

5*: MOVB 
MOV 
MOV 

9*: MOV 

RETURN 



R1,-<SP) 

LDVERS. Rl 

9* 

R2, -<SP) 

R3> -<SP) 

SYSVER, R3 

#1, Rl 

#LD1TBL, R2 

<R2)+, R3 

5* 

eR2 

1* 

#2, Rl 

Rl, LDVERS 

<SP)+, R3 

<SP)+, R2 

(SP)+, Rl 



See if value mas specified in TSGEN 
If value specified in TSGEN, use it 



Get current RT version and update 

Assume version format RT5. 3 or earlier 

Point to table of versions using format 

Does this entry match actual version? 

Exit if so 

End of table? 

Keep looking if more entries 

If not in format 1 table, use format 2 

Remember for LD SPFUN 372 



5372 
5374 



010246 
010346 



INDINI: 



5376 005037 OOOOOOG 



5402 
5410 
5430 
5432 



5436 
5442 
5476 
5502 
5540 
5544 
5546 
5550 
5552 
5554 
5560 
5562 
5564 
5570 
5572 
5576 
5600 
5604 



013737 OOOOOOG 000264' 



TSINIT — TSX startup initiaiiz HACRO V05. 04 
INDINI — Initialize IND program 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 

12 01 

13 01 
14 

15 

16 

17 01 

IS 

19 

20 

21 01 

22 01 

23 01 

24 01 
25 
26 
27 

28 01 

29 01 

30 01 

31 01 

32 01 

33 01 

34 01 

35 01 

36 01 

37 01 

38 01 

39 01 

40 01 

41 01 

42 01 

43 01 

44 01 

45 01 
46 
47 
48 
49 

50 01 

51 01 

52 01 
53 

54 
55 

56 01 

57 01 
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SBTTL INDINI 



Initialize IND program 



Perform initialization for IND program. 

Outputs: 

If IND is available, the follouiing information is set up: 

INDSAV = 5 word . SAVESTATUS block for SY: IND. SAV file 

INDDBL = Lowest block # within IND. SAV file of data overlay segment. 

INDDBS = Number of blocks used for data overlay segment. 

INDTSV = 5 word .SAVESTATUS block for SY: TSX IND. TSX file 



MOV 
MOV 



R2, -<SP> 
R3, -<SP) 



Determine if IND support is wanted 

CLR INDSAV i ASSUME IND SUPPORT NOT WANTED 



Lookup SY: IND. SAV file 



MOV 



SYNAME, INDNAM 



LOOK UP IND ON BOOT DEVICE 



LOOKUP #AREA,#1,# INDNAM i TRY TO FIND SY: IND. SAV 



103002 
000137 



013703 

016302 

162702 
060302 
011203 
020312 
001003 
062702 
000773 
005722 
012237 
011202 
062702 
000302 
042702 
010237 



016064' 

000152' 

000064 

001000 



BCC 

JMP 



4* 
9* 



;BR IF FOUND IND 

i IF CAN'T FIND IND, THEN NO IND SUPPORT 



Set up information about IND overlay data segment 



4*: 



000006 

OOOOOOG 

000377 

177400 
OOOOOOG 



5*: 



6*: 



5610 
5614 
5620 



5624 
5630 



012700 
013702 
004737 



013703 
070327 



OOOOOOG 
000264 ' 
027126' 



OOOOOOG 
OOOOOOC 



Get pointer to work buffer 

,#0 ;READ IN BLOCK OF SAV FILE 

GET POINTER TO OVERLAY TABLE 

,#1 jREAD IN BLOCK 1 WITH OVERLAY TABLE 

GET ADDRESS OF OVERLAY TABLE REL TO BLOCK 1 

ADD BASE ADDRESS WHERE BLOCK 1 DATA IS 

Get virtual address of segment 

Search for 1st segment with different addr 

Br if found it (this is the data segment) 

Point to overlay table entry for next seg 

Point to word with block # if SAV file 
GET BLOCK # IN SAV FILE OF DATA OVERLAY 
GET # OF WORDS IN OVERLAY SEGMENT 
ROUND UP TO NEXT BLOCK 
CONVERT # WORDS TO # BLOCKS 

SAVE # BLOCKS USED FOR DATA OVERLAY 



Do .SAVESTATUS on channel opened to IND. SAV file so that we 
can do a reopen to access it from KMON. 

GET ADDRESS OF SAVESTATUS BLOCK 
GET RAD50 DEVICE NAME 
SAVE FILE STATUS 

Determine how much space is needed for SY: TSX IND. TSX swap file 



MOV 


WRKBUF. R3 


. READW 


#AREA, #1,R3, #256. 


MOV 


64(R3),R2 


. READW 


#AREA, #1,R3, #256. 


SUB 


#1000, R2 i 


ADD 


R3, R2 i 


MOV 


(R2>,R3 i 


CMP 


R3, <R2) i 


BNE 


6* } 


ADD 


#6, R2 i 


BR 


5* 


TST 


<R2)+ s 


MOV 


<R2)+, INDDBL : 


MOV 


(R2),R2 i 


ADD 


#255. , R2 i 


SWAB 


R2 i 


BIC 


#'^C<377>, R2 


MOV 


R2, INDDBS ; 



MOV 


# INDSAV, RO 


MOV 


INDNAM, R2 


CALL 


SETCHN 



MOV INDDBS, R3 
MUL #<LSTSL/2>, R3 



;GET # BLOCKS NEEDED PER JOB 
i TIMES TOTAL NUMBER OF JOBS 



I 
I 
< 

4 
I 
I 

€ 
i 

I 
i 
€ 
I 
I 
I 
i 
i 
I 
4 
4 



TSINIT - 


— TSX s 


tartup initializ 


INDINI - 


~ Initialize IND progra 


58 








59 








60 








61 








62 


015634 


013700 


0000000 


63 


015640 


004737 


027506 ' 


64 


015644 


103522 




65 








66 








67 








68 


015646 






69 


015666 


103415 




70 


015670 


020003 




71 


015672 


001462 




72 


015674 






73 


015702 






74 








75 








76 








77 








78 


015722 






79 


015746 


103451 




80 


015750 


010302 




81 


015752 


005302 




82 


015754 






83 


016012 






84 


016020 






85 








86 








87 








88 


016040 


012700 


0000000 


89 


016044 


013702 


0000000 


90 


016050 


004737 


027126' 


91 


016054 






92 








93 








94 








95 


016064 


012603 




96 


016066 


012602 




97 


016070 


000207 




98 








99 








100 








101 


016072 






102 


016100 






103 


016106 


004737 


011276' 


104 








105 








106 








107 


016112 


010001 




108 


016114 






109 


016122 






110 


016130 


004737 


011324' 
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Load Rt-11 device handler for ind swap file. 



MOV INDFIL, RO 
CALL RTFTCH 
BCS 11* 



; Get name of the device 

; Try to fetch the RT-11 device handler 

; Br if error on handler fetch 



See if TSXIND file already exists 

.LOOKUP #AREA, #1,#INDFIL ; DOES SY: TSXIND. TSX FILE EXIST NOW? 



BCS 1* 

CMP RO, R3 

BEQ 2* 

. PURGE #1 

. DELETE #AREA, #1> #INDFIL 

File does not noui exist 
Create new file 



BR IF NOT 

IS IT OF THE CORRECT SIZE? 

BR IF YES 

FILE IS OF WRONG SIZE 

DELETE OLD FILE 



1$: 



.ENTER #AREA, #1,»INDFIL, R3 ; CREATE NEW TSXIND FILE 

BCS 10* ;BR IF ERROR ON CREATE 

MOV R3, R2 i# BLOCKS IN FILE 

DEC R2 i GET # OF LAST BLOCK IN FILE 

-WRITW #AREA, #1, WRKBUF, #256. ,R2 ; WRITE TO LAST BLOCK OF FILE 

. CLOSE #1 i NOW CLOSE THE FILE 

LOOKUP #AREA, #1,#INDFIL {REOPEN TSXIND FILE WITH LOOKUP 

Do . SAVESTATUS for SY: TSXIND. TSX file 



2*: 



MOV #INDTSV, RO 
MOV INDFIL. R2 
CALL SETCHN 
. RELEAS #INDFIL 



POINT TO SAVESTATUS BLOCK 
GET RAD50 DEVICE NAME 
SAVE FILE INFO 
Release device handler 



Finished 



9*: 



MOV 
MOV 
RETURN 



(SP)+, R3 
<SP)+, R2 



Error occurred while opening SY: TSXIND. TSX file 

10*: .PRINT #TSXHD i Print error message 

.PRINT #INDOPN 
CALL SPNEED ; Print info about number of blocks needed 

Error: Invalid device specification. 



11*: MOV RO, Rl 

.PRINT #TSXHD 

.PRINT #INDOPN 

CALL BADDEV 



; Save device name 

; Print error message 

;Print invalid device specification 



TSINIT - 
UCLINI - 

1 
2 
3 
4 
5 
6 
7 
8 
9 



- TSX startup initializ MACRO V05. 04 
Initialize TSXUCL data file 



10 016134 

11 016136 
12 

13 
14 

15 016140 

16 016144 

17 016146 

18 016152 
19 

20 
21 

22 016154 

23 016160 

24 016164 

25 016166 

26 016172 

27 016174 

28 016200 
29 

30 

31 

32 016204 

33 

34 

35 

36 016210 

37 016214 

38 016220 
39 

40 
41 
42 

43 016222 

44 016242 

45 016244 

46 016246 

47 016250 

48 016256 
49 

50 
51 

52 016276 

53 016322 

54 016324 

55 016326 
56 

57 



010246 
010346 



105737 
00 1 536 
013702 
001533 



012700 
062700 
070200 
062703 
005502 
071227 
010237 



013700 
004737 
103523 



103415 
020003 
001446 



103452 
005303 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 

000777G 

001000 
OOOOOOG 



070227 OOOOOOC 



OOOOOOG 
027506' 
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SBTTL UCLINI — Initialize TSXUCL data file 



UCLINI is called to initialize the TSXUCL data file which is used 
to store user-defined commands. 



Outputs: 
TSXUCL data file is initialized. 
UCLBLK = Number of blocks in data file for each job. 



UCLINI: MOV 
MOV 



R2, -<SP) 
R3, -(SP) 



TSTB 


VU*CL 


BEO 


9* 


MOV 


VUCLMC, R2 


BEQ 


9* 



Determine if TSXUCL data file is needed 

; Is TSXUCL being used at all? 
; Br if not 

» Get maximum number of commands 
; Br if none allowed 

Determine number of blocks needed in data file for each job 

MOV #UK**SZ»RO iSize of each keyword descriptor 

ADD #US**SZ/ RO ;Size of each command string descriptor 

MUL ROi R2 i Compute total # bytes for keyword s+commsnds 

ADD #UC**SZ+511. # R3 /Add space for control information & round up 

ADC R2 /Propogate carry 

DIV #512. ,R2 i Convert to # of blocks needed 

MOV R2i UCLBLK i Save number of blocks needed per job 

Multiply by number of jobs to get total file size 

MUL #<LSTSL/2>* R2 ; Times total number of jobs 

Load Rt-11 device handler for ind swap file. 



MOV 

CALL 

BCS 



UCLDAT, RO 

RTFTCH 

11* 



i Get name of the device 

/Try to fetch the RT-11 device handler 

/Br if error on handler fetch 



The total required file size is now in R3. 
See if the file already exists. 

.LOOKUP #AREA/ #1/ #UCLDAT J See if the file exists now 

BCS 1* /Br if file does not exist 

CMP RO/ R3 /Is existing file of correct size? 

BEQ 2* /Br if yes — use the old file 

.PURGE #1 /Purge the channel 

.DELETE #AREA/#1/ #UCLDAT/ Delete the old file 



Create 



new data file 



1«: .ENTER #AREA/ #1/ #UCLDAT/ R3 /Create new data file 

BCS 10* i Br if error creating the file 

DEC R3 /Get # of last block in the file 

.WRITW #AREA/#1/ WRKBUF, #256. / R3 /Write to last block of file 

i Translate possible logical device name to physical name and close 



013702 

063702 000030 ' 

062702 000036 

010237 OOOOOOG 



TSINIT — TSX startup initializ MACRO 
UCLINI — Initialize TSXUCL data file 



58 
59 

60 016364 

61 016404 

62 016410 

63 016414 

64 016420 

65 016424 

66 016432 
67 

68 
69 

70 016442 

71 016444 

72 016446 
73 

74 
75 

76 016450 

77 016456 

78 016464 
79 

SO 
81 

82 016470 

83 016472 

84 016500 

85 016506 
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012603 
012602 
000207 



004737 011276' 



010001 



004737 011324' 



(Physical name is needed for TSXUCL program. > 



2*: 



. CSTAT #AREA, #1, #NFSBLK 



9*: 



MOV 


<NFSBLK+12>, R2 


ADD 


<:nfsblk+io>, r2 


ADD 


#-^R 0, R2 


MOV 


R2, UCLDAT 


. CLOSE 


#1 


. RELEAS 


#UCLDAT 


inished 




MOV 


(SP)+, R3 


MOV 


(SP)+, R2 


RETURN 





;GET CHANNEL STATUS INFORMATION 
FETCH DEVICE NAME IN RAD50 
ADD IN DEVICE UNIT NUMBER 
CONVERT UNIT NUMBER TO RAD50 
SET PHYSICAL NAME BACK INTO TSGEN CELL 
Close the file 
Release device handler 



Error creating the data file 



10*: . PRINT #TSXHD 
.PRINT #UCLOPN 
CALL SPNEED 



; Print error message 

i Print info about number of blocks needed 
Error: Invalid device specification. 



11*: MOV RO, Rl 

.PRINT #TSXHD 

.PRINT #UCLOPN 

CALL BADDEV 



i Save device name 
/Print error message 

iPrint invalid device specification 



TSINIT - 


— TSX 5 


tar tup initializ 


MEMINI - 

1 

2 


— Initial i ze me 


mory man 


3 
4 
5 
6 


016512 


010146 




7 


016514 


010246 




8 


016516 


010346 




9 


016520 


010446 




10 


016522 


010546 




11 








12 








13 








14 


016524 


012700 


0000000 


15 


016530 


012701 


OOOOOOG 


16 


016534 


012702 


OOOOOOG 


17 


016540 


012703 


OOOOOOG 


18 


016544 


012704 


000010 


19 


016550 


005005 




20 


016552 


010520 




21 


016554 


010521 




22 


016556 


012722 


077406 


23 


016562 


012723 


077406 


24 


016566 


062705 


000200 


25 


016572 


077411 
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27 

28 

29 016574 

30 

31 

32 

33 016602 

34 016604 

35 016606 

36 016610 

37 016612 

38 016614 



. SBTTL MEMINI 



Initialize memory management 



Initialize memory management registers for a 1-to-l mapping. 
But leave memory management turned off. 



MEMINI: MOV 
MOV 
MOV 
MOV 
MOV 



R1,-<SP) 
R2, -(SP) 
R3, -<SP) 
R4, -<SP) 
R5, -<SP) 



Initialize all pages for a 1-to-l mapping. 



12*: MOV #KPAR0, RO 

MOV #UPARO, Rl 

MOV #KPDRO, R2 

MOV #UPDRO, R3 

MOV #8. , R4 

CLR R5 

MOV R5, (R0) + 

MOV R5, (Rl) + 

MOV #077406, <R2>+ 

MOV #077406, <R3)+ 

ADD #200, R5 

SOB R4, 2* 



2*: 



Kernel mode PAR O 
User mode PAR 
Kernel mode PDR O 
User mode PDR O 
Initialize 8 pages 
Set initial PAR value 
Set kernel PAR 
Set user PAR value 
Set kernel PDR 
Set user PDR value 
Advance block number 
Init all pages 



012737 OOOOOOG OOOOOOG 



012605 
012604 
012603 
012602 
012601 
000207 



Map kernel mode I/O page (160000) to 17760000. 
MOV #IOPAGE, e#KPAR7 ; Map I/O page 



Finished 



MOV 
MOV 
MOV 
MOV 
MOV 
RETURN 



(SP)+, R5 
(SP)+, R4 
(SP)+, R3 
(SP)+, R2 
<SP)+, Rl 



I 
< 
I 
I 



TSINIT 
MEMTST 
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Set up information about available memory space 



3 
4 
5 
6 

7 

a 

9 
10 

n 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



016616 
016620 
016622 
016624 
016626 
016630 



016634 
016642 
016644 
016646 
016652 
016654 



016660 



000110 

010146 
010246 
010346 
010446 
010546 
013746 



012737 
000240 
000240 
005737 
103402 
105237 



000004 



017170' 000004 



OOOOOOG 



0000000 



. S13TTL MEMTST — Set up information about available memory space 

MEMTST is called to set up information related to memory management. 
MEMTST performs the following functions: 

1. Determine how much memory is installed on machine. 

2. Load Kernel mode mapping registers. 

Inputs: 
R5 = top of memory currently allocated for TSX and low memory buffers. 

Outputs: 
PHYMEM = 64-byte block # above top of physical memory. 
FMEMHI = 64-byte block # above top of memory available for system. 
Kernel mode mapping registers loaded. 
Memory management is left turned off. 



Offset word to test for memory wrap - choose a location which will not 
effect RT-11 or TSX-Plus initialization. 



TSTWRD = 110 

MEMTST: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



j Offset word to test for memory wrap 



R1,-<SP) 
R2, -<SP) 
R3, -(SP) 
R4, -<SP) 
R5, -<SP) 
@#4, -(SP) 



; Save illegal mem. ref. trap vector 



Determine if this machine has a memory management register # 3. 
If it does not/ then machine cannot possibly have more than 256Kb. 



MOV 
NOP 
NOP 
TST 
BCS 
INCB 



#TRCSET, @#4 



e#SR3MMR 



SR3FLG 



; Catch trap 

iClean out 11/73 pipeline 

i Before attempting trap 

i Try to access status register 3 

i Br if MMU 3 status register is non-existent 

i No trap. We must have SR3 



If we are running on a Professional* there is a register that tells 
us how much memory is installed on the machine. 



22*: 
. IF 



NE, PROASM 
TSTB PROFLG 





BEQ 


26* 




CLR 


R5 




BISB 


©#173050, R 5 




ASH 


#9. , R5 




SUB 


#10, R5 




BR 


7* 


26*: 






. ENDC 


;NE, 


PROASM 


. IF 


NE, < 


PROASM- 1> 



Are we running on a Professional? 

Br if not 

Load byte without sign extension 

Get 32Kb top of system RAM boundary 

Convert to # 64 byte blocks 

Don't use the last 512 bytes of memory 



i Assemble if could be on a PDP-11 
We are not running on a Professional. 



I 
I 
< 

c 
I 
I 
< 
I 
I 

i 

< 

I 

4 
< 
4 
I 
4 



€ 
C 
€ 



TSINIT — 
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58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

SO 

81 

82 

S3 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 
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016660 
016666 
016672 
016700 
016704 
016706 



016714 
016720 
016724 
016732 



016736 
016740 
016742 
016746 
016752 



016754 
016760 
016762 
016766 
016774 
017002 
017010 
017012 
017016 
017020 



017024 
017030 
017034 
017036 
017042 
017046 



017052 
017056 
017060 
017066 



012737 
005037 
052737 
105737 
001403 
052737 



012705 
010537 
052737 
005737 



000004 
103405 
062705 
020527 
103762 



020527 
101421 
005037 
012737 
052737 
012737 
000004 
005737 
001402 
012705 



010537 
020537 
101402 
013705 
010537 
010537 



105737 
001403 
042737 
042737 



017200' 
000022 
OOOOOOG 
OOOOOOG 



000020 
OOOOOOG 



OOOOOOG OOOOOOG 



000010 
177600 



010000 

000110 
010000 
OOOOOOG 
177777 

000110 

010000 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
000134' 



OOOOOOG 

OOOOOOG 
OOOOOOG 



Test each page above TSX to see where the top of memory is. 

MOV #RTNKM, @#20 i Use lOT instruction to get out of user mode 

CLR e#22 

BIS #MMENBL» e#SROMMR J Enable memory management 

TSTB SR3FLG /Does maching have mem management reg # 3? 

BEQ 4* ;Br if non-existent 

BIS #EMMAP, e#SR3MMR ; Enable 22-bit extended memory 

Map user page 7 to each successive 256-word block and attempt to access. 



002000 
OOOOOOG 
OOOOOOG 
160000 



OOOOOOG 



4*: MOV #1024. ,R5 

5*: MOV R5, @#UPAR7 

BIS #UMODE, e#PSW 

TST @# 160000 



/Start checking at 64Kb 

J Map user page 7 to page to be tested 

; Go into user mode 

j Can we access the page? 



Use JOT to get back into kernel mode. 



lOT 
BCS 
ADD 
CMP 
BLO 



6$ 

#10, R5 

R 5/ #177600 

5* 



/Return to kernel mode 

/Br if memory is non-existent 

/Go try next page 

/Don't enter I/O page 



6*: 



OOOOOOG 
OOOOOOG 
160110 



Check for potential memory wrap <on 18-bit 256K byte computers). 

CMP R5/ #10000 /Is physical memory above 256K bytes 

BLOS 7* /Br if below 256K bytes 

CLR @#TSTWRD /Clear physical location 

MOV #10000/ @#UPAR7 i Map to 256K byte boundary 

BIS #UMODE/ @#PSW /Go into user mode 

MOV #-l/@#160000+TSTWRD ; Store -1 at 256K physical location 

lOT /Return to kernel mode 

TST @#TSTWRD i Test physical location 

BEG 7$ /Br if physical location is clear 

MOV #10000/ R 5 ; Constrain memory to 256K byte total 
ENDC / NE, <PR0ASM-1> 

Reached end of available memory. 



7*: 



8*: 



MOV 


R5/ PHYMEM 


CMP 


R5, MAPSIZ 


BLOS 


8* 


MOV 


MAPSIZ/ R5 


MOV 


R5/*MEMSZ 


MOV 


R5/FMEMHI 



/ set physical memory size 

/Constrain kernel to user specified cutoff 

/Br if below user specified 

/Only use this much memory 

/Set # 64-byte blocks of total memory 

/Save base 64-byte block # of top of free mem 



Turn off memory management 



OOOOOOG 
OOOOOOG 



9*: 



TSTB SR3FL0 /Do we have memory management reg # 3? 

BEQ 9* i Br if non-existent 

BIC #EMMAP/ e#SR3MMR /Disable extended memory management 

BIC #MMENBL/ @#SROMMR/ Turn off memory management 



017074 023727 000134' 010000 



If this is a Q-bus machine with >256Kb then set EXTLSI flag in ICONFG 
CMP FMEMHI/ #4096. /Does machine have at least 256Kb? 



TSINIT 
MEMTST - 

115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
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017102 
017104 
017110 
017116 
017120 



017126 
017134 
017136 
017142 
017144 



017150 
017154 
017156 
017160 
017162 
017164 
017166 



017170 
017176 



017200 
017206 



017210 
017216 
017224 



103411 
105237 
123727 
001003 
052737 



123727 
001005 
105737 
001402 
105237 



012637 
012605 
012604 
012603 
012602 
012601 
000207 



052766 
000002 



042766 
000002 



OOOOOOG 
OOOOOOG 

000001 



OOOOOOG 
000306 ' 



BLO 25* 

INCB MEM256 

CMPB VBUSTP, #QBUS 

BNE 25* 

BIS #EXTLSI, ICONFG 



Br if not 

Remember machine has at least 256kb 

Is this a Q-bus machine? 

Br if not 

Set extended-LSI flag in ICONFG 



See if this machine needs UNIBUS mapping 



OOOOOOG OOOOOOG 25*: 

OOOOOOG 

OOOOOOG 



000004 



000001 



CMPB 

BNE 

TSTB 

BEQ 

INCB 



VBUSTP,#UNIBUS J Is this a UNIBUS machine? 



Finished 



29*: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RETURN 



29* 

MEM256 
29* 
UBUSMP 



(SP)+, @#4 
<SP)+, R5 
(SP)+, R4 
<SP)+, R3 
<SP)+, R2 
<SP)+,R1 



; Br if not 

i Does machine have at least 256kb of memory? 

i Br if not 

; Say UNIBUS mapping is needed 



(Reset trap vector 



Trap 



000002 TRCSET: BIS 

RTI 



return with C-bit set. 
#1, 2(SP) 



* Set c-bit for return 
; Return from trap 



i lOT 
OOOOOOG 000002 RTNKM: 



return at kernel mode with c-bit preserved 
#UMODE, 2<SP) 



BIC 
RTI 



i Clear user mode - return to kernel 
> Return from trap 



000137 004216' 



Error: System does not have memory management hardware. 
NOXM: .PRINT #TSXHD ; PRINT ERROR MESSAGE 

i ABORT INITIALIZATION 



.PRINT #TSXHD 
.PRINT #NXMMSG 
JMP INISTP 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 

12 017230 
13 
14 
15 

16 017230 
17 
18 
19 
20 

21 017234 

22 017240 

23 017244 

24 017250 

25 017256 
26 

27 
28 

29 017262 

30 017264 
31 

32 
33 

34 017270 

35 017274 

36 017300 

37 017302 

38 017306 
39 

40 
41 

42 017312 

43 017316 

44 017322 

45 017326 
46 

47 
48 

49 017332 

50 017336 

51 017342 

52 017346 

53 017350 

54 017352 

55 017356 

56 017362 
57 



062700 
042700 
010037 
062737 
062700 



006200 
010037 



062700 
072027 
000300 
052700 
010037 



013700 
062700 
072027 
010037 



012700 
062700 
072027 
005300 
000300 
052700 
042700 
010037 



000077 
000077 

ooooooe 
ooooooe 

00000 IG 



ooooooe 



000037 
177773 

000006 
OOOOOOG 



0000000 
000377 
177770 
OOOOOOG 



OOOOOOG 
000077 

177772 



000006 
100261 
OOOOOOG 



012700 OOOOOOG 



. SBTTL CXTALC — Set up info about job context area 

Set up information about the size of the job context area. 

Outputs: 
CXTWDS = Number of words needed for job context area. 
CXTPAG = Number of 512-byte pages needed for context area. 
CXTPDR = Value to load into PDR when mapping job context area. 
CXTRMN = Address of simulated RMON in context area. 
RMNPDR = Value to load into PDR to map to simulated RMON. 

CXTALC: 

Get size of base portion of job context area 

MOV #CXTSIZ,RO i Get # bytes for base context area 

Bound up to 64-byte boundary and add size of simulated RMON 
which is allocated above the base job context data. 



OOOOOOG 



ADD #63. , RO 

BIC #77, RO 

MOV RO, CXTRMN 

ADD ttCXTBAS, CXTRMN 

ADD #MVSIZ+1,R0 



Bound up to 64 byte boundary 

Offset to start of simulated RMON 

Add base virtual address of context area 

Add space for simulated RMON it channels 



Save number of words needed for context area 



ASR 
MOV 



RO 

RO, CXTWDS 



; Convert to # words 

iThis is # words for whole job context are* 



Compute PDR value to use to map to job context area 



ADD 


#31. ,R0 


ASH 


#-5. ,R0 


SWAB 


RO 


BIS 


#6, RO 


MOV 


RO, CXTPDR 



i Bound up to # 32 word units 

iGet # 32-word units for context area 

i Put # 32-word units in high-order byte 

i Set PDR control flags 

iThis is the PDR value 



Compute # 512-byte pages needed for job context block 



MOV 
ADD 
ASH 
MOV 



CXTWDS, RO 
#255. , RO 
#-S. , RO 
RO, CXTPAG 



; Get back # words for context area 
; Bound up to # 256-word blocks 
iGet # 256-word pages for context area 
i# pages for job context area 



Set up PDR value used when mapping to simulated RMON 



MOV 


#MV3IZ,R0 


ADD 


#63. , RO 


ASH 


#-6, RO 


DEC 


RO 


SWAB 


RO 


BIS 


#6, RO 


BIC 


#100261, RO 


MOV 


RO. RMNPDR 



Get size of monitor vector table 

Round up to # 32 word blocks 

Cvt to # 32-word blocks 

Get # blocks - 1 

Put # blocks in left byte 

Allow read and write access 

Make sure unused PDR bits are zero 

This is PDR value to map to sim. RMON 



TSINIT — TSX startup initializ MACRO V05. 04 Monday 14-Dec-87 08:35 Page 45-1 
CXTALC — Set up info about job context area 

58 ) Finished 

59 ; 

60 017366 000207 RETURN 



TSINIT ■ 


— TSX s 


tartup initializ 


MAPALC - 


— Allocate memory usage 


1 
2 








3 








4 








5 








6 








7 








S 








9 








10 








11 








12 








13 








14 








15 








16 








17 








18 








19 








20 








21 








22 








23 








24 








25 








26 








27 


017370 


010246 




28 


017372 


010346 




29 


017374 


010446 




30 








31 








32 








33 








34 


017376 


010503 




35 


017400 


072327 


177775 


36 


017404 


042703 


160000 


37 


017410 


013702 


000136' 


38 


017414 


062702 


000007 


39 


017420 


072227 


177775 


40 


017424 


042702 


160000 


41 


017430 


160203 




42 


017432 


003440 




43 


017434 


010304 




44 


017436 


062704 


001000 


45 


017442 


072427 


177767 


46 








47 








48 








49 


017446 


012700 


OOOOOOG 


50 


017452 


010037 


OOOOOOG 


51 


017456 


160200 




52 


017460 


010037 


0000000 


53 


017464 


012700 


OOOOOOG 


54 


017470 


060300 




55 


017472 


160400 




56 


017474 


010037 


OOOOOOG 


57 
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SBTTL MAPALC — Allocate memory usage table 



MAPALC is called to allocate a table that keeps track of uihich pages 

of memory are currently in use by user jobs and which are free. 

Each byte in the table corresponds to a 512-byte block of physical memory. 

The portion of physical memory used by the system is not represented 

in the memory allocation table. 



Inputs: 
R5 
FMEMLO 

Outputs; 
FMEMHI 
MAPPAR 
BASMAP 



LOMAP = 



HIMAP = 



MAPALC: MOV 
MOV 
MOV 



64-byte block number of top of free memory area. 
64-byte block number of base of free memory area. 



64-byte block number of top of free memory area. 

64-byte block number used to map to the memory alloc table. 

Virtual address of memory allocation table that would 

correspond to physical address 0. Note* the entries 

in the allocation table between BASMAP and LOMAP are 

actually not allocated. 

Virtual address of memory allocation table that corresponds 

to 1st physical 512-byte page that is available to user jobs. 

Notei LOMAP always contains 120000 because we access the 

allocation table by mapping it through PAR 5. 

Virtual address of memory allocation table that corresponds 

to 512-byte page above the top of the user area. 

R2, -<SP) 
R3i-<SP) 
R4, -(SP) 



Determine how many bytes will be required for the memory allocation table. 
One byte in the table is required for each 512-byte physical page. 



MOV R5, R3 

ASH #-3, R3 

BIC #160000, R3 

MOV FMEMLO. R2 
ADD - #7, R2 

ASH #-3, R2 

BIC #160000, R2 

SUB R2, R3 

BLE 10* 

MOV R3, R4 

ADD #512. , R4 

ASH #-9. , R4 



Get 64-byte block # of top of free mem 

Convert to 512-byte page # 

Kill possible sign extension 

Get 64-byte block # of base of free memory 

Round up 

Convert to 512-byte page # 

Kill possible sign extension 

Get # bytes needed for allocation table 

Br if memory overflow 

Get # bytes for allocation table 

Add 1 extra byte and round up to 512-byte 

Get # 512-byte units needed for alloc table 



Set up virtual address pointers for the allocation table 



MOV #VPAR5, RO 

MOV RO, LOMAP 

SUB R2, RO 

MOV RO, BASMAP 

MOV #VPAR5, RO 

ADD R3, RO 

SUB R4, RO 

MOV RO, HIMAP 



O 



We will map to alloc table through PAR 5 

Pointer to 1st entry in alloc table 

Get pseudo virtual address for page 

This would point to alloc entry for 

Get back base address of table 

Add # bytes used by table 

Subtract space used by table itself 

Virtual address of 1st entry for system page 



# O 
page 



K 



TSINIT - 


— TSX 5 


tartup initializ 


MAPALC - 


— Allocate memory usage 


58 








59 








60 


017500 


072427 


000003 


61 


017504 


160405 




62 


017506 


020537 


000136' 


63 


017512 


101410 




64 


017514 


010537 


OOOOOOG 


65 


017520 


010537 


000134' 


66 








67 








68 








69 


017524 


012604 




70 


017526 


012603 




71 


017530 


012602 




72 


017532 


000207 




73 








74 








75 








76 


017534 






77 


017542 






78 


017550 


000137 


004216' 
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tab le 
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Allocate space for the allocation table 



ASH 

SUB 

CMP 

BLOS 

MOV 

MOV 

Finished 



MOV 
MOV 
MOV 
RETURN 



#3i R4 

R4, R5 

R5> FMEMLO 

10* 

R5, MAPPAR 

R5, FMEMHI 



<SP)+, R4 
(SP)+, R3 
(SP)+, R2 



;Get # 64-byte units for alloc table 

; Compute physical 64-byte base for table 

i Did ue run out of memory space? 

; Br if memory overflow 

/Use this value to map PAR 5 to alloc table 

i Save new top of free memory area 



Error: 
10*: 



Generated system is too large 



. PRINT 
. PRINT 
JMP 



#TSXHD 

#PHSOVF 

INISTP 



Print error message heading 
Physical memory overflow 
Abort the initialization 



I 
I 



TSINIT — 
SETJSZ — 

1 
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3 
4 
5 

7 

8 

9 
10 
11 
12 
13 
14 
15 

16 017554 
17 
18 
19 

20 017556 

21 017562 

22 017566 
23 

24 
25 

26 017572 

27 017576 
28 

29 
30 

31 017600 

32 017604 

33 017610 

34 017612 

35 017614 

36 017620 

37 017622 

38 017626 

39 017632 

40 017634 

41 017640 

42 017642 

43 017646 
44 

45 
46 

47 017652 

48 017656 

49 017660 

50 017664 
51 

52 
53 

54 017670 

55 017672 
56 

57 



010546 



013705 
163705 
010537 



020537 
103436 



013700 
010037 
160005 
006205 
020537 
101402 
013705 
010537 
010500 
072027 
001002 
012700 
010037 



020537 
101402 
013705 
010537 



012605 
000207 



OOOOOOG 
0000000 
OOOOOOG 



OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 

OOOOOOG 
OOOOOOG 

000012 

177774 
OOOOOOG 



OOOOOOG 

OOOOOOG 
OOOOOOG 



SBTTL SETJSZ 



Set up information about maximum job sizes 



SETJSZ is called to set up some information about the maximum 
job sizes to be allowed. The maximum job size is chosen so that 
u>e are guaranteed to be able to get at least one job logged on. 

Inputs: 
LOMAP = Address of 1st MEMMAP entry available to user jobs. 
HIMAP = Address of 1st MEMMAP entry above top of user job area. 

Outputs: 
FREPGS = Total number of 512-byte pages available to user jobs. 
MXJMEM = max # K bytes available to a job 
DFJMEM = Default job memory size <kb) 

SETJSZ: MOV R5, -(SP) 

Determine total number of pages of memory available to user jobs 



MOV HIMAP, R5 
SUB LOMAP, R 5 
MOV R5, FREPGS 



POINTER ABOVE LAST FREE PAGE ENTRY 

GET TOTAL # OF FREE PAGES 

# FREE PAGES AVAILABLE TO USER JOBS 



Make sure there is enough free space to run TSKMON. 



CMP R5, KMNPGS 
BLO 1* 



COMPARE # FREE PAGES TO # PAGES FOR TSKMON 
BR IF INSUFFICIENT MEMORY TO RUN TSKMON 



Set up max memory limit for jobs 



10*: 



MOV 


CXTPAG, RO 


MOV 


RO, JCXPGS 


SUB 


RO, R5 


ASR 


R5 


CMP 


R5, VHIMEM 


BLOS 


10* 


MOV 


VHIMEM, R5 


MOV 


R5. MXJMEM 


MOV 


R5, RO 


ASH 


#10. ,R0 


BNE 


2* 


MOV 


#177774, RO 


MOV 


RO, MXJADR 



;# PAGES NEEDED FOR JOB CONTEXT AREA 

LEAVE ROOM FOR JOB CONTEXT AREA 
Convert # pages to # KB 
COMPARE WITH TSGEN SPECIFIED MAX SIZE 
BR IF CONSTRAINED BY PHYSICAL SIZE 
LIMIT BY VALUE SPECIFIED IN TSGEN 
MAX # K BYTES AVAILABLE TO A JOB 

CONVERT # KB TO BYTE ADDRESS 
BR IF DIDN'T OVERFLOW 64KB 
GET 64KB TOP ADDRESS 
ADDRESS ABOVE TOP OF JOB 



Set default memory size of jobs 



11* 



CMP 


R5, VDFMEM 


BLOS 


11* 


MOV 


VDFMEM, R5 


MOV 


R5, DFJMEM 


Finished 




MOV 


(SP)+,R5 


RETURN 





COMPARE TO DEFAULT SPECIFIED IN TSGEN 
BR IF CONSTRAINED BY PHYSICAL LIMIT 
CONSTRAIN BY TSGEN PARAMETER 
SET DEFAULT JOB MEMORY SIZE 



Error — Insufficient memory space available to run TSKMON. 



i 
( 
I 
< 

4 
i 

i 
I 
i 
< 

i 
i 

I 
I 

i 
i 
i 

i 
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58 i 

59 017674 004737 027642' 1*: CALL SIZERR ; Generated system is too big — abort 



i 

I 
< 

i 



4 

€ 
I 

I 

< 

( 
4 



TSINIT 
SETJSZ 



-- TSX startup initializ MACRO V05. 04 Monday 14-Dec-87 08:35 Page 48 
— Set up information about maximum job sizes 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 



.IF NE* <PR0ASM~1> ; No parity control if PRO only 
. SBTTL PARSET — Setup memory parity control 

PARSET is called to set up memory parity control. 
Currently this consists of disabling memory parity. 



017700 005727 OOOOOOG 

017704 001027 

017706 010246 

017710 013746 000004 



017714 012737 017740' 000004 
017722 000240 



PARSET: 



TST 
BNE 
MOV 
MOV 



#MPARFL 

20* 

R2, -<SP) 

e#4. -<SP> 



J Does he want to disable memory parity? 
; Br if not 



> Save contents of trap vector 
Catch traps that occur when we access unimplemented parity registers 
#2$, @#4 



017724 000240 



017726 012702 0000000 
017732 042712 OOOOOOG 
017736 000402 
017740 062706 000004 
017744 062702 000002 

OOOOOOG 



017750 
017754 



020227 
101766 



017756 012637 
017762 012602 
017764 000207 



000004 



MOV 
NOP 
NOP 



> Send traps to 2* 

; Clean out instruction pipeline 



Disable parity for each block of memory 





MOV 


#MPARO, R2 


1*: 


BIC 


#PARENL, <R2) 




BR 


3* 


2*: 


ADD 


#4, SP 


3*: 


ADD 


#2. R2 




CMP 


R2, #MPAR16 




BLOS 


1* 


; Finished 




t 


MOV 


<SP)+, e#4 




MOV 


<SP)+, R2 


20*: 


RETURN 






. IFF 


i NE. <PR0ASM-1> 


PARSET: 


RETURN 






. ENDC 


i NE. <PR0ASM-1> 



Point to 1st memory control register 

Disable memory parity 

We did not trap 

Clean trap PS and PC off of stack 

Point to next parity control register 

Have we cleared all registers? 

Loop if not 



Restore trap vector 



TSINIT - 


— TSX s 


tartup initiaiiz 


GETHNL - 


— Load 


device h 


andlers 


1 

2 








3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 


017766 


010146 




15 


017770 


010246 




16 


017772 


010446 




17 








IS 








19 








20 


017774 


005001 




21 


017776 


020127 


OOOOOOC 


22 


020002 


103015 




23 


020004 


016102 


ooooooe 


24 


020010 


001407 




25 


020012 


020227 


ooooooe 


26 


020016 


001404 




27 


020020 


016104 


OOOOOOG 


28 








29 








30 








31 


020024 


004737 


020076 ' 


32 








33 








34 








35 


020030 


062701 


000002 


36 


020034 


000760 




37 








38 








39 








40 


020036 


012704 


OOOOOOG 


41 


020042 


001411 




42 


020044 


012701 


ooooooe 


43 


020050 


012102 




44 


020052 


010446 




45 


020054 


005004 




46 


020056 


004737 


020076 ' 


47 


020062 


012604 




40 


020064 


077407 




49 








50 








51 








52 


020066 


012604 




53 


020070 


012602 




54 


020072 


012601 




55 


020074 


000207 
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. SBTTL OETHNL — Load device handlers into memory 

GETHNL performs two functions: 

1. Set up information in the device tables about all devices. 

2. Load those handlers that reside in loui memory. 

Inputs: 
R5 = Address of start of free memory. 

Outputs: 
R5 = Address of new start of free memory. 
NMXHAN = Number of handlers to load into extended memory. 



GETHNL: MOV 
MOV 
MOV 



R 1 , - < SP ) 
R2, -<SP) 
R4, -<SP) 



1*: 



Begin loop to check all handlers specified in TSGEN with DEVDEF. 

; Init device table index 



Br if yes 

Get the name of the device 

Ignore null devices 

Is this a dummy device entry? 

Skip it if yes 

Get flags specified in TSGEN 



Try to load handler into memory 



CLR 


Rl 


CMP 


R1,#<AHEND-AU 


BHIS 


2« 


MOV 


AUTHAN<R1).R2 


BEQ 


3* 


CMP 


R2, #DMYDEV 


BEQ 


3* 


MOV 


DTYPE<R1),R4 



Load this handler 

CALL LDHAND 
Check next device 



3*: 



ADD 
BR 



#2, Rl 
1* 



; Advance device index 

> See if more devices to load 



Now see if there are spooled devices to contend with 



2$: 



5*: 



9*: 



MOV 


#SPLND, R4 


BEQ 


9* 


MOV 


#SPLDEV, Rl 


MOV 


(R1)+,R2 


MOV 


R4, -<SP) 


CLR 


R4 


CALL 


LDHAND 


MOV 


<SP>+, R4 


SOB 


R4, 5* 


inished 




MOV 


<SP)+, R4 


MOV 


<SP)+, R2 


MOV 


<SP)+,R1 


RETURN 





Are there any spooled devices? 

Br if not 

Point to spooled device name table 

Get the name of the next spooled device 

Save device count 

Say no TSGEN flags for device 

Load the handler 

Recover the device count 

Loop if more handlers to load 



TSINIT 
LDHAND - 

1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

le 

19 
20 
21 

30 



- TSX startup initializ MACRO V05. 04 
Load a device handler 



020076 010446 



23 
24 

25 020100 

26 020104 
27 

28 
29 
30 

31 020106 

32 020112 
33 

34 

35 

36 

37 

38 020114 

39 

40 

41 

42 

43 020120 

44 020124 

45 020130 

46 020132 

47 020136 

48 020140 

49 020144 

50 020146 

51 020152 

52 020154 

53 020160 

54 020162 

55 020170 
56 

57 



004737 
103456 



020246 



004737 
103450 



020424 ' 



004737 021036' 



016400 
032700 
001035 
032700 
001432 
032700 
001412 
105737 
001024 
032700 
001404 
032737 
001015 



Monday 14-Dec-S7 08:35 Page 50 



SBTTL LDHAND — Load a device handler 



LDHAND sets up the device tables for a handler and loads into memory 

those handlers that reside in low memory. 

The device interrupt vectors are NOT set up by LDHAND. 

Inputs: 
R2 = Rad-50 name of device. 

R4 = TSX-Plus DX*xxx status flags for device from TSGEN. 
R5 = Address where handler is to be loaded. 

Outputs: 
R5 = New free memory address. 
NUMDEV = Incremented by 2. 
PNAME<i) = Rad-50 name of device. 
ENTRY<i) = Handler entry point. 
DVSTATd) = Device status flags. 
DVFLAOd) = TSX-Plus device status flags. 
HANPAR(i) = PAR offset if this is a mapped handler. 

LDHAND: MOV R4, -<SP) 

Determine if we should ignore this device 



CALL 
BCS 



INSCKl 
9* 



; Should we ignore this device? 
i Br if yes 



The initial tests indicate that this handler should be loaded. 
Now open the handler file and perform some additional checks. 



CALL 
BCS 



INSCK2 
8* 



; Perform some additional checks on handler 
; Br if we should not load this device 



At this point channel 1 is open to the handler file and block 

of the handler is in WRKBUF. 

Set up information tables for this device. 



CALL 



STDVTB 



i Set up info in tables for this device 



OOOOOOG 
0000000 

ooooooe 
ooooooe 

OOOOOOG 
OOOOOOG 
000001 000306' 



Determine if this handler is to be loaded into low memory or 
extended memory. 

Get TSX-Plus status flags for device 

Are we never to map this handler? 

Br if handler cannot be mapped 

Is mapping wanted for this handler? 

Br if not 

Does this handler have an internal I/O buff? 

Br if not 

Does this machine have a mapped UNIBUS? 

Br if yes — Don't map this handler 

Does this handler require I/O mapping? 

Br if not 

Is this a Q-bus system with more than 256Kb? 

Br if yes — Don't map this handler 

This handler can be mapped and will be loaded in extended memory 



MOV 


DVFLAG<R4),R0 


BIT 


#DX*NHM, RO 


BNE 


1* 


BIT 


#DX*MPH, RO 


BEO 


1$ 


BIT 


#DX*IBH, RO 


BEQ 


2* 


TSTB 


UBUSMP 


BNE 


1* 


BIT 


#DX«MAP, RO 


BEQ 


2« 


BIT 


#EXTLSI, ICONFG 


BNE 


1* 



( 
I 
i 
I 
I 

4 

I 

( 

i 

4 

I 
4 

i 
4 
i 

i 



TSINIT — TSX startup iriitializ MACRO V05. 04 Monday 14-Dec-87 08:35 Page 50-1 
LDHAND — Load a device handler 



58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 



020172 
020176 



020204 
020212 
020214 
020220 



020230 



020234 



020242 
020244 



005237 
012764 



026427 
101410 
012700 
000137 



005064 
004737 



000124' 2*: 

000001 OOOOOOG 



INC NMXHAN 

MOV #1,HANPAR<R4> 



; Count # of mapped handlers 

; Set flag saying handler should be mapped 



0000000 020000 

002452 ' 
022124' 



OOOOOOG 
021146' 



Make sure size of mapped handler does not exceed 8KB 

CMP HANSIZ<R4),#S192. i Is mapped handler too big? 

BLOS 8* /Br if not too big 

MOV #HN2BIG>R0 ; Get error message address 

JMP HLERR ; Abort initialization 

This handler must be loaded into ioui memory 



1*: 



CLR HANPAR(R4) 
CALL LDHNLO 



012604 
000207 



; Close the handler file 

i 

8*: . CLOSE #1 

f 

f Finished 

i 

9*: MOV (SP)+, R4 
RETURN 



;Say this handler is not mapped 
; Load handler into low memory 



Close the handler file 
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1 
2 
3 
4 
5 
6 
7 

a 

9 
10 
11 
12 
13 
14 
15 

16 020246 
17 
IB 
19 

20 020250 

21 020252 

22 020254 

23 020260 

24 020264 

25 020266 
26 

27 
28 
29 

30 020272 

31 020276 

32 020300 

33 020304 

34 020306 

35 020310 

36 020314 

37 020316 

38 020320 

39 020322 
40 

41 
42 

43 020324 

44 020330 

45 020332 

46 020336 

47 020340 

48 020344 
49 

50 
51 
52 

53 020346 

54 020352 

55 020356 

56 020360 

57 020364 



010146 



010201 
005000 
071027 
070027 
010102 
010237 



020237 
001004 
105737 
001044 
000417 
012701 
020221 
001437 
005711 
001374 



013701 
001406 
020261 
001427 
162701 
003372 



012701 
020261 
001003 
056104 
000405 



. SBTTL INSCKl — Determine if a handler should be installed 

INSCKl is called to determe if a certain device handler should be 
loaded. 

Inputs: 
R2 = Rad50 name of the device. 
R4 = Initial DX*xxx flags as specified in TSSEN. 

Outputs: 
C-flag cleared ==> Load the handler. 
C-flag set ==> Do not load the handler. 
R2 = Device name with unit number removed. 
R4 = DX*xxx combined with default flags for the device. 

INSCKl: MOV R1,-<SP) 

Strip off any specified unit number 



000050 
000050 

000146' 



MOV 
CLR 
DIV 
MUL 
MOV 
MOV 



R2. Rl 

RO 

#50, RO 

#50, RO 

Rl, R2 

R2, CURNAM 



Get full device name 

Set for divide 

Split off last digit 

Now correct for divide 

Get device name less 3rd digit 

Set name of handler being loaded 



000176' 
OOOOOOG 

000224 ' 



1*: 
2*: 



See if this is a device such as DK, SY, or TT which we don't 
need to load as a device handler. 

Is device name LD? 

Br if not 

Is standard system LD support included? 

Br if yes — Don't load LD 

Load LD 

Point to table of devices to skip 

Is this a device to be skipped? 

Br if yes 

Reached end of skip list? 

Loop if not 

See if we have already loaded the handler for this device 



CMP 


R2, R50LD 


BNE 


1* 


TSTB 


VLDSYS 


BNE 


5* 


BR 


3* 


MOV 


#SKPDEV, Rl 


CMP 


R2, (Rl) + 


BEQ 


5* 


TST 


(Rl) 


BNE 


2* 



OOOOOOG 
OOOOOOG 
000002 



MOV NUMDEV, Rl 

BEQ 3$ 

4*: CMP R2, PNAME(Rl) 

BEQ 5* 

SUB #2, R 1 

BGT 4* 



; Get index for last device 

; Br if no devices installed yet 

i See if this device is already installed 

; Br if already installed 

i More installed devices to check? 

J Loop if yes 



000342 ' 
000000 

000002 



This handler is to be loaded. 

Get default TSX-Plus control flags for this device. 

3$: MOV #DVFLBS, Rl i Point to start of table 

6$: CMP R2, DV*NAM<Ri) ; Search for device in the table 

BNE 7* i Br if this is not it 

BIS DV*FLG(R1),R4 i Combine default flags 

BR 8$ 



TSINIT • 
INSCKl • 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
SO 
81 
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020366 062701 000004 
020372 020127 000522' 
020376 103765 



020400 032704 OOOOOOG 

020404 001402 

020406 052704 OOOOOOG 



020412 000241 
020414 000401 



020416 000261 



020420 012601 



ADD 


#DV**SZ,R1 


CMP 


R1»#DVFLND 


BLO 


6$ 



7*: ADD #DV**SZ,R1 ; Point to next entry 

iChecked all entries? 
J Loop if not 

If this is a DMA device> set flag saying buffers must be on 
even byte boundaries. 

8«: BIT #DX*DMA,R4 J Is this a DMA device? 

i Br if not 
; Set even-buffer-boundary flag 



BIT 


#DX*DMA, R4 


BEQ 


10* 


BIS 


#DX*EBA, R4 



Load this handler 



10*: 



CLC 
BR 



9* 



0204J 



000207 



; Do not load this handler 

i 

5*: SEC 

i 

; Finished 

i 

9*: MOV <SP)+, Rl 
RETURN 



; Set flag saying to load the handler 



Set flag saying not to load the handier 



TSINIT — 
INSCK2 — 

1 

3 
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€ 



3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 

14 020424 

15 020426 

16 020430 

17 020432 

18 020434 

19 020436 

20 020442 
21 

22 
23 

24 020446 

25 020452 

26 020472 
27 

28 
29 

30 020474 

31 020500 

32 020502 

33 020506 

34 020512 
35 

36 
37 
38 

39 020516 

40 020554 

41 020556 

42 020562 
43 

44 
45 

46 020566 

47 020572 

48 020576 

49 020602 

50 020606 

51 020610 

52 020616 

53 020620 

54 020622 

55 020630 

56 020632 

57 020636 



010146 
010246 
010346 
010446 
010546 
013746 
013746 



010237 
103011 



105737 
001002 
000137 
012700 
000137 



103004 
012700 
000137 



012700 
013701 
116101 
120160 
001020 
123760 
103405 
101020 
123760 
103014 
105737 



000004 
000010 



000246 ' 



0000000 

021004' 
001636' 
022124' 



. SBTTL INSCK2 — Additional checking for handler installation 

INSCK2 is called to determine if a device handler should be installed. 

Inputs: 
R2 = Rad50 device name (without unit number). 

Outputs: 
C-flag cleared --> Load this handler. 
C-flag set ===> Do not load this handler. 

If the handler is to be loaded* its block is in WRKBUF and channel 
number 1 is opened to the handler file. 



INSCK2: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



Rl, -(SP) 
R2, -(SP) 
R3, -(SP) 
R4, -(SP) 
R5, -(SP) 
e#4, -(SP) 

e#io, -(SP) 



i Save the bus timeout vector 

j Save illegal instruction vector 



001700' 
022124' 



000330 ' 
000152' 
OOOOOOG 
000000 

OOOOOOG 000001 

OOOOOOG 000002 
OOOOOOG 



Try to lookup handler file on system disk 

MOV R2> HANNAM+2 > Set the device name for the lookup 
.LOOKUP #AREA>#l,#HANNAMi Try to open the handler file 
BCC 1* i Br if we found the handler file 

Error — Cannot find handler file 

i Abort or continue on errors? 
; Br if abort on errors 
> Say not to load this handler 
J*: MOV #CFHMSG, RO ; Can't find handler 

/Abort initialization 

We were able to open the handler file. 
Read in block of handler. 

1*: . READW # AREA, #1* WRKBUF, #256. , #0 i Read block O into WRKBUF 

BCC 3* J Br if read ok 

MOV #ERHMS0, RO i Error during read 

JMP HLERR 

Determine if the handler is supported under the current RT-11 version 



TSTB 


VINABT 


BNE 


2* 


JMP 


10* 


MOV 


#CFHMSG, RO 


JMP 


HLERR 



3*: 



51*: 



52*: 



MOV 

MOV 

MOVB 

CMPB 

BNE 

CMPB 

BLO 

BHI 

CMPB 

BHIS 

TSTB 

BE(3 



#HVTBL, RO 

WRKBUF, Rl 

H. DSTS(R1),R1 

R1,HV*ID(R0) 

53* 



j Point to table with handler version info 
i Point to buffer with block O of handler 
i Get device ID code from handler 
; Compare handler ID code with table entry 
i Br if this entry not for this handler 



SYSVER, HV*VER(RO)i Compare curr RT-11 vers with min acceptable 

52* j Br if version is not adequate 

54* J Br if version is ok 

SYSUPD, HV*UPD(RO); Compare update level 

54* i Br if update level is ok 

VINABT i Handler not loadable - abort or continue? 

10* i Br if continue but don't allow loading 
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58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 



020640 
020644 
020650 
020654 
020660 



020662 
020666 
020674 
020676 
020702 
020706 



020714 
020722 
020730 
020734 
020740 
020742 
020744 



020746 
020752 
020754 
020756 
020762 
020770 
020774 
020776 
021002 



021004 
021006 
021010 
021012 
021016 
021022 
021024 
021026 
021030 
021032 
021034 



012700 
000137 
062700 
020027 
103750 



013700 
032760 
001004 
012700 
000137 
016037 



012737 
012737 
013700 
016001 
001402 
005711 
103422 



062700 
005710 
001415 
013746 
012737 
013703 
004710 
012637 
000403 



000261 
000401 
000241 
012637 
012637 
012605 
012604 
012603 
012602 
012601 
000207 



001744' 
022124' 
000003 
000341 ' 



MOV #ERHNDV, RO 

JMP HLERR 

53*: ADD #HV**SZ, RO 

CMP RO, #HVEND 

BLD 51* 



» Wrong version of RT for handler 

i Report error and abort 

; Point to next handler version table entry 

; Are there more entries? 

i Loop if more to check 



Check handler sysgen options 



000152' 54*: 

OOOOOOG OOOOOOG 



002045' 
022124' 
OOOOOOG 000304' 



4*: 



MOV WRKBUF, RO i Point to buffer with handler block 

BIT #SG*MMU, H. GEN(RO)i Was handler genned with XM support? 

BNE 4* j Br if yes 

MOV #HSGER, RO i Error if not XM version of handler 

JMP HLERR 

MOV H. GEN (RO), HGENFLi Save handler sysgen flags for later 

Check the CSR address specified in the handler to see if the 
hardware device for this handler exists. 



017170' 000004 
017170' 000010 
000152' 
OOOOOOG 



MOV #TRCSET, ©#4 

MOV #TRCSET, e#10 

MOV WRKBUF, RO 

MOV H. CSR<R0),R1 

BEQ 5* 

TST (Rl) 

BCS 13* 



Catch bus timeout traps 

Catch illegal instruction traps 

Point to start of block of handler 

Get address of CSR for device 

Br if no CSR specified 

Is CSR accessible? 

Br if trap occurred while accessing CSR 



OOOOOOG 



OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG 



5*: 



Execute the device installation code. 

The installation code will set the C-flag if the handler should 

not be loaded. 

Offset 200 in block 

Does any installation code exist? 

Br if no driver installation code 

Save RT-11 RMON pointer 

Set TSX-Plus RMON pointer 

Get pointer to Pro vec addr routine 

Call the installation code 

Restore RT-11 RMON pointer 

C-flag now indicates handler load status 



000010 
000004 



10*: 

11* 
13* 



ADD 


#H. INS, RO 


TST 


@R0 


BEQ 


11* 


MOV 


@#RMON, -<SP) 


MOV 


#MONVEC, e#RMON 


MOV 


RPRVEC, R3 


CALL 


@R0 


MOV 


< SP ) +, e#RMON 


BR 


13* 


Finished wi 


th installation 


: SEC 




BR 


13* 


CLC 




MOV 


<SP)+, @#10 


MOV 


<SP)+>e#4 


MOV 


<SP)+,R5 


MOV 


<SP)+, R4 


MOV 


<SP)+, R3 


MOV 


(SP)+, R2 


MOV 


<SP)+,R1 


RETURN 





j Set c-bit for indicating handler 

; should not be installed 

; Clear the c-bit for driver installation 

; Restore illegal instruction vector 

} Restore the bus timeout vector 



TSINIT 
STDVTB 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



021036 



021036 062737 000002 OOOOOOG 
021044 013700 OOOOOOG 



021050 010260 OOOOOOG 
021054 010460 OOOOOOG 



021060 012760 000001 OOOOOOG 



021066 010004 

021070 013700 000152' 

021074 016064 OOOOOOG OOOOOOG 

021102 016064 OOOOOOG OOOOOOG 

021110 016064 OOOOOOG OOOOOOG 



. SBTTL STDVTB — Set up device table entries for a device 

STDVTB is called to set up device table entries for a device whose 
handler is being loaded. 

Inputs: 
R2 = Rad50 name of device (less unit number). 
R4 = DX*xxx device flags for DVFLAG table. 
Block of the handler must be in WRKBUF. 

Outputs: 
R4 = Device table index number for this device. 
NUMDEV = Incremented by 2. 
PNAME<i) = Rad50 name of the device. 
DVSTATd) = Device status flags. 
DVFLAGd) = TSX-Plus control flags. 
HANSIZ(i) = Size of handler (bytes). 
DEVSIZ<i) = Size of device (blocks). 

STDVTB: 



; Say another device added to tables 
> Get device index number 



; Set permanent device name 

i Set up TSX-Plus control flags for the device 

Set HANDSK entry to 1. 

This entry is supposed to hold the absolute block number on the disk where 

block 1 of the handler is located. We set to 1 because all I/O uie do 

on behalf of the handler is relative to the base of the handler rather than 

relative to the start of the disk. 

MOV #1,HANDSK(R0) i Set block # of block 1 of handler file 

Extract parameters from handler block 

MOV RO, R4 * Carry device index in R4 

MOV WRKBUF, RO i Point to block of handler 

MOV H. SIZ(RO)> HANSIZ(R4) i Set handler size 

MOV H. DVSZ(R0),DEVSIZ(R4> ; Number of blocks on device 

MOV H. DSTS(R0),DVSTAT(R4) i Set device status flags 



i Increment 


device 


counter 




ADD 




#2, 


NUMDEV 




MOV 




NUMDEV, RO 


; Set 


up PNAME 


and 


DVFLAG. 




MOV 




R2, 


PNAME (RO) 




MOV 




R4, 


DVFLAG (RO) 



Disable MOUNTs and data caching for certain devices 



021116 032764 OOOOOOG OOOOOOG 

021124 001404 

021126 032764 OOOOOOG OOOOOOG 

021134 001403 

021136 052764 OOOOOOC OOOOOOG 1*: 



BIT 
BEQ 
BIT 
BEQ 
BIS 

Finished 



#DS*DIR, DVSTAT(R4) ; Is this a directory structured device? 

1* i Br if not — No mounts allowed 

#DS*NRD, DVSTAT(R4) i Non RT-11 directory structure (mag tape)? 

9* } Br if not 

#<DX*NMT!DX*NCA>, DVFLAG (R4) {Disable mounts and data caching 
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58 021144 000207 9*: RETURN 



I 

' i 

I 



I 



( 



TSINIT - 
LDHNLO - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
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— Load device handler into louj memory 



021146 010346 



021150 005064 OOOOOOG 

021154 010500 

021156 016403 OOOOOOG 

021162 060300 

021164 004737 027622' 



021170 006203 

021172 

021226 103004 

021230 012700 001700' 

021234 000137 022124' 



021240 010564 0000000 

021244 062764 000006 OOOOOOG 

021252 006303 

021254 060305 



021256 010503 

021260 004737 022032' 



021264 004737 022162' 



. SBTTL LDHNLO — Load device handler into low memory 

LDHNLO is called to load a device handler into low memory. 

Inputs: 
R4 = Device index number. 
R5 = Address of start of free memory area. 

Outputs: 
R5 = Address of new start of free memory area. 

LDHNLO: MOV R3, -(SP) 

Determine if we have enough free memory space to read the handler 



CLR HANPAR<R4) 

MOV R5, RO 

MOV HANSIZ<R4).R3 

ADD R3, RO 

CALL CHKMEM 



; Say this handler is not mapped 

i Get current top of memory address 

i Get size of handler 

i Get address above top of handler 

> See if handler will fit in memory 



1*: 



Handler will fit. Read it into memory. 

ASR R3 i Get number of words to read 

. READW #AREA, # 1 , R 5, R3, # 1 

BCC 1* i Br if read ok 

MOV #ERHMSG, RO ; Error reading handler 

JMP HLERR i Abort initialization 

Set address of handler entry point and compute address beyond 
end of the handler. 

; Set address of handler entry point 
; (Point to fourth word of handler) 
J Convert handler size to bytes 
i Point beyond end of handler 

Set up table of addresses of support routines at end of handler. 



MOV 


R5, HANENT<R4) 


ADD 


#6, HANENT < R4 > 


ASL 


R3 


ADD 


R3, R5 



MOV 
CALL 



R5, R3 
STHNPV 



/Get address past end of handler 
iSet up pointer vector in handler 



021270 012603 
021272 000207 



If handler has any load-time exectuion code* run it now 

CALL DOHNLC i Run any load-time code for handler 

Finished 

MOV (SP)+, R3 
RETURN 



I 

€ 
I 
< 
I 



TSINIT - 
GETHNH - 

1 
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3 

4 

5 

6 

7 

8 

9 
10 
11 
12 

13 021274 
14 
15 
16 
17 
18 

19 021276 
20 
21 
22 

23 021302 

24 021306 
25 

26 

27 

28 

29 021310 

30 

31 

32 

33 021314 

34 021320 

35 021324 
36 

37 
38 

39 021326 

40 021330 



010446 



012704 000002 



005764 OOOOOOG 
001402 



004737 021332' 



062704 000002 
020437 OOOOOOe 
101766 



012604 
000207 
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memory 

. SBTTL GETHNH — Load handlers into extended memory 

GETHNH is called to load those handlers that can be placed in extended 
memory. The status tables for these devices have already been set up 
by GETHNL. 

Inputs: 
R5 = 64-byte block number of top of free memory area. 

Outputs: 
R5 = 64-byte block number of new top of free memory area. 



GETHNH: MOV 



R4, -<SP) 



; Begin looking for handlers that are to be loaded into extended memory. 
i GETHNL stored a non-zero (but meaningless) value in the HANPAR entry 
> for each handler that is to be mapped. 

MOV #2i R4 ; Get index for first device entry 

i See if this device has a mapped handler 



1*: 



TST HANPAR (R4) 
BEQ 2$ 



; Is this handler mapped? 
j Br if not 



We found an entry for a device uiith a mapped handler. 
Load the handler. 

CALL LDHNHI ; Load a mapped handler 

Look for more mapped handlers 



2*: 



ADD 


#2, R4 


CMP 


R4, NUMDEV 


BLOS 


1* 


Finished 





MOV (SP)+, R4 

RETURN 



i Increment device index 
iChecked all devices? 
iLoop if not 



I 
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€ 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 

12 021332 

13 021334 

14 021336 

15 021340 
16 

17 
18 

19 021342 

20 021350 

21 021356 

22 021376 

23 021400 

24 021404 
25 

26 
27 

28 021410 

29 021414 

30 021450 
31 

32 

33 

34 021456 

35 

36 

37 

38 

39 021464 

40 021470 

41 021472 

42 021476 

43 021500 

44 021504 

45 021510 

46 021514 

47 021516 

48 021522 

49 021526 
50 

51 
52 

53 021534 

54 021536 

55 021542 

56 021544 

57 021550 



010146 
010246 
010346 
010446 



016437 
016437 

103004 
012700 
000137 



013702 
016237 



016402 
005202 
042702 
010200 
062700 
072027 
060037 
160005 
010564 
010537 
012737 



010203 
020327 
101402 
012703 
160302 



. SBTTL LDHNHI — Load device handler into extended memory 

LDHNHI is called to load a device handler into extended memory. 

Inputs: 
R4 = Device index number. 
R5 = 64-byte block number of top of free memory area. 

Outputs: 
R5 == 64-byte block number of new top of free memory area. 



LDHNHI: MOV 
MOV 
MOV 
MOV 



R 1 , - < SP ) 
R2, -<SP) 
R3, -(SP) 
R4, -<SP) 



OOOOOOG 000246' 
OOOOOOG 000146' 



001636' 
022124' 



000152' 
OOOOOOG 000304' 



8*: 



012764 000006G OOOOOOG 



Open channel 1 to the handler file. 

MOV PNAME(R4), HANNAM+2 J Set the device name for the lookup 
MOV PNAME<R4), CURNAM} Set name in case tue have an error 
.LOOKUP #AREA, #1. #HANNAMi Try to open the handler file 
BCC S* ; Br if we found the handler file 

MOV #CFHMSG* RO ; Can't find handler 
JMP HLERR ; Abort initialization 

Read block of the handler file and extract some information 

MOV WRKBUF, R2 /Get address of work buffer 
. READW #AREA, #1,R2, #256. ,#0 i Read block O of handler 
MOV H. GEN (R2)» HGENFLi Save handler sysgen flags 

Set virtual address of handler entry point 

MOV #VPAR5+6, HANENT<R4) ; Set virtual addr of handler entry point 

Get information about the size of the handler and determine the 
address in extended memory where the handler is to be loaded. 



OOOOOOG 

000001 

000077 
177772 
OOOOOOG 

OOOOOOG 
000126' 
000001 000142 



MOV HANSIZ<R4),R2 

INC R2 

BIC #1,R2 

MOV R2, RO 

ADD #63. , RO 

ASH #-6, RO 

ADD RO, MHNSIZ 

SUB ROi R5 

MOV R5. HANPAR<R4) 

MOV R5, HMAP 

MOV #1,FILBLK 



i Get size of handler (bytes) 

J Make sure handler size is even 



Round up to # 64-byte blocks 

Get # 64-byte blocks for handler 

Accumulate total space for mapped handlers 

Reserve room for handler 

Set mapping value for handler 

Set initial PAR base for handler 

Set # of block to read from file 



Begin loop to read handler into memory 



1*: 



001000 
001000 



?«: 



MOV 


R2, R3 


CMP 


R3. #512. 


BLOS 


2* 


MOV 


#512. ,R3 


SUB 


R3, R2 



i Get remaining size of handler 

i Compare with max we can read at one time 

J Br if we can read remainder of handler 

; Read one block 

i Reduce amt of handler left to read 
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58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



021552 
021554 
021560 
021614 
021616 
021622 



021626 
021632 
021640 
021644 
021652 
021660 
021664 
021666 
021674 
021676 
021700 
021704 
021706 
021714 
021722 
021726 



021734 
021742 
021746 
021750 



021752 
021756 
021762 
021766 
021772 



021776 
022002 
022006 



022012 



006203 
013701 



013746 
013737 
052737 
105737 
001403 
052737 
012120 
077302 
105737 
001403 
042737 
042737 
012637 



062737 
005237 
005702 
001271 



012703 
066403 
004737 
004737 
004737 



010537 
004737 
013705 



000 15J 



103004 

012700 001700' 

000137 022124' 



012700 OOOOOOG 



Read next block of handler 

ASR R3 

MOV WRKBUF, Rl 

. READW #AREA, #1,R1,R3; 

BCC 3* 

MOV #ERHMSe, RO 

JMP HLERR 



; Get # ujords to read 
; Get address of buffer 
FILBLK i Read a block 
; Br if read ok 
i Get error message 
;Abort initialization 



for read 



Move the code we just read into the XM area for the handler 



3*: 



OOOOOOG 

000126' OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 



OOOOOOG 



4$: 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 5*: 
OOOOOOG 



MOV #VPAR5, RO 

DISABL 

MOV e#KPAR5, -(SP) 

MOV HMAP, e#KPAR5 

BIS #MMENBL, @#SROMMR 

TSTB MEM256 

BEQ 4$ 

B I S #EMMAP , @#SR3MMR 

MOV (Rl)+, (R0)+ 

SOB R3, 4* 

TSTB MEM256 

BEQ 5* 

BIC #EMMAP, e#SR3MMR 

BIC #MMENBL, @#SROMMR 

MOV (SP>+, e#KPAR5 

ENABL 



Get virtual address of mapped region 
** Disable interrupts #* 

Save current mapping of PAR 5 

Set up mapping to get to XM area 

Enable memory management 

Does machine have > 256KB? 

Br if not 

Enable extended memory addressing 

Move from WRKBUF to XM region 

Loop till all moved 

Does machine have > 256KB? 

Br if not 

Disable extended memory addressing 

Enable memory management 

Replace PAR 5 mapping 
** Enable interrupts *# 



See if there is more to read 



000010 
000142' 



000126' 



ADD 
INC 
TST 
BNE 



#8. , HMAP 

FILBLK 

R2 

1$ 



j Increase XM region base 
i Increment file block number 
} Is there more to read? 
i Loop if more to read 



We have finished moving the handler into 
Set up addresses of system routines in a 



its XM region, 
vector at the end 



of the handler 



OOOOOOG 
OOOOOOG 
022662 ' 
022032 ' 
022736 ' 



000134 
022162 
000134 



MOV 


#VPAR5, R3 


ADD 


HANSIZ(R4),R3 


CALL 


HANMAP 


CALL 


STHNPV 


CALL 


HANUMP 


} If handler 


has any load-ti 


MOV 


R5, FMEMHI 


CALL 


DOHNLC 


MOV 


FMEMHI, R 5 


; Close the h 


andler file 


. CLOSE 


#1 


i 

i Finished 





Get virtual address of handler base 

Get virtual address beyond end of handler 

i J Map KPAR5 to the handler 

i i Set up handler pointer vector 

Restore mapping 

code* run it now 

iSet addr of top of free memory area 
; Run any load-time code for handler 
; Get new top of free memory address 



iClose the handler file 



TSINIT -- 
LDHNHI — 

115 
116 
117 
118 
119 
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022020 
022022 
022024 
022026 
022030 



012604 
012603 
012602 
012601 
000207 



MOV 
MOV 
MOV 
MOV 
RETURN 



<SP)+, R4 
<SP)+. R3 
<SP)+, R2 
<SP)+, Rl 



f 

€ 



i 
f 
i 



TSINIT -- 
STHNPV — 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 
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02203J 



022034 
022040 
022044 
022052 
022054 
022060 
022066 
022070 
022074 
022100 
022104 
022110 
022114 



022120 
022122 



010346 



012743 
012743 
032737 
001402 
012743 
032737 
001402 
012743 
012743 
012743 
012743 
012743 
012743 



012603 
000207 



. SBTTL STHNPV — Initialize pointer vector in a handler 

STHNPV is called to initialize the pointer vector at the end of a 
handler uihich provides the addresses of various system routines to the 

handler. 

Inputs: 
R3 = Address beyond the end of the handler. 
HGENFL = Sysgen option flags for the handler being loaded. 



STHNPV: MOV 



R3, -<SP> 



Set up addresses in the pointer vector 



OOOOOOG 
0000000 
OOOOOOG 000304' 

OOOOOOG 
OOOOOOG 000304' 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



?*: 



3*: 



MOV 
MOV 
BIT 
BEQ 
MOV 
BIT 
BEQ 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

Finished 



MOV 
RETURN 



#FORK, -<R3) 

#INTEN, -<R3) 

#SO*IOT>HGENFL 

2* 

#I0TIMR,-<R3) 

#SO«ELG, HGENFL 

3* 

#ERRLOG, -(R3) 

#PTWRD. -<R3) 

#PTBYT, -<R3) 

#GTBYT, -<R3) 

#MPPHY, -<R3) 

#REL0C,-(R3) 



<SP)+, R3 



Address of fork routine 

Address of inten routine 

Does handler uant timeout support? 

Br if not 

Set address of timeout support routine 

Does handler uant error logging support? 

Br if not 

Set address of error logging routine 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 



022124 
022126 
022134 
022140 
022144 
022150 
022156 



010001 



013700 
004737 



Error occured luhile loading 
RO = error message address^ 



000146' 
030012' 



000137 004216 



HLERR: 


MOV 


RO, Rl 




. PRINT 


#TSXHD 




. PRINT 


Rl 




MOV 


CURNAM, RO 




CALL 


PRTR50 




. PRINT 


#CRLF 




JMP 


INISTP 



device handler. 
CURNAM = device name. 



SAVE ERROR MESSAGE ADDRESS 
PRINT ERROR MESSAGE HEADING 
PRINT ERROR MESSAGE 
GET RAD50 DEVICE NAME 
PRINT DEVICE NAME 

ABORT INITIALIZATION 
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i 
I 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



022162 010146 

022164 010246 

022166 010346 

022170 010446 

022172 010546 



022174 016405 OOOOOOG 

022200 004737 022662 ' 

022204 016500 000004 

022210 004737 022736' 

022214 020027 000240 

022220 103516 

022222 020027 000277 

022226 101113 

022230 132700 000004 

022234 001510 



022236 013702 000152' 

022242 

022276 022227 031066 

022302 001065 

022304 016203 000004 

022310 001462 



022312 020327 001000 

022316 103424 

022320 010302 

022322 072227 177767 

022326 042702 177400 
022332 



022370 010437 000144' 

022374 042703 177000 

022400 010300 

022402 063700 000152' 



. SBTTL DOHNLC — Execute and handler load/fetch code 

If the handler being loaded has any Load-time execution code* read it 
into our work buffer and execute it now. 

Inputs: 
R4 = Device index number of handler that is being loaded. 

Outputs: 
C-flag is set on return if load code signals an error during its 
execution. 



DOHNLC : MOV 
MOV 
MOV 
MOV 
MOV 



R1*-<SP) 
R2* -<SP) 
R3, -(SP) 
R4*-<SP) 
R5, -<SP) 



MOV 


HANENT<R4),R5 


CALL 


HANMAP 


MOV 


4(R5>,R0 


CALL 


HANUMP 


CMP 


RO* #240 


BLO 


7* 


CMP 


RO, #277 


BHI 


7* 


BITB 


#4, RO 


BEQ 


7* 



Examine 1st word of handler to see if it could have any load-time code. 

Get address of handler entry point 

; i Map KparS to handler if mapped handler 

i i Get 1st instruction located at 4 in handler 

Restore normal mapping 

Is it a NOP? 

Br if can't be any load code 

Br if can't be any load code 
Is there load code? 
Br if not 

Handler may have load code. 

Read block of handler and get offset to load code. 

MOV WRKBUF, R2 ; Get addr of our work buffer 

. READW #AREA, #1,R2, #256. , #0 i Read block of handler 

CMP <R2)+, #''RHAN ; Is this a new type handler? 

BNE 7* iBr if not 

MOV 4<R2)>R3 ; Get offset to load code 

BEQ 7* ; Br if there is none 

There is load-time code. 

Read into WRKBUF the portion of the handler with the load code. 



CMP 
BLO 
MOV 
ASH 
BIC 



R3, #1000 
1* 

R3, R2 
#-9. , R2 
#'X377> R2 



; Is load code in block of handler? 

i Br if yes 

; Get offset to start of load code 

j Convert to a block number 

; Clear all but block number 



.READW #AREA,#li WRKBUF, #512. , R2 i Read 2 blocks from handler file 
The load code is now in WRKBUF. Set up and execute it. 



1*: 



MOV 
BIC 
MOV 
ADD 



R4, CURDEV 
#•-^0777, R3 
R3, RO 
WRKBUF, RO 



> Save current device index number 

; Get offset within block of load code entry pt 

J Get entry point offset 

;Add base address 



TSINIT 
DOHNLC - 



- TSX startup 

- Execute and 



initializ MACRO V05. 04 Monday 14-Dec-87 08:35 Page 59-1 
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58 022406 

59 022412 

60 022416 

61 022422 

62 022426 

63 022430 

64 022434 

65 022440 

66 022442 
67 

68 
69 
70 

71 022444 

72 022452 

73 022456 

74 022460 
75 

76 
77 

78 022462 

79 022470 

80 022474 
81 

82 
83 

84 022476 

85 022500 

86 022502 

87 022504 

88 022506 

89 022510 



013701 
012702 
012703 
012705 
060405 
004737 
012704 
004710 
103407 



012737 
004737 
000241 
000406 



012737 
004737 
000261 



012605 
012604 
012603 
012602 
012601 
000207 



OOOOOOG 
OOOOOOC 
000004 
OOOOOOG 

022662 ' 
022512' 



MOV 


RPRVECRl 


MOV 


#MAXDEV*2, R2 


MOV 


#4, R3 


MOV 


#HANENT, R5 


ADD 


R4, R5 


CALL 


HANMAP 


MOV 


#LDREAD, R4 


CALL 


(RO) 


BCS 


2* 



Fetch/load code ran ok. 
Turn off handler mapping. 



001400 OOOOOOG 
022736 ' 



7*: 



MOV 
CALL 
CLC 
BR 



#1400, @#KPAR6 
HANUMP 

9* 



001400 OOOOOOG 2*: 
022736 ' 



9*: 



MOV 


#1400, @#KPAR6 


CALL 


HANUMP 


SEC 




inished 




MOV 


(SP>+, R5 


MOV 


(SP)+, R4 


MOV 


<SP)+, R3 


MOV 


(SP)+, R2 


MOV 


(SP)+, Rl 


RETURN 





Get pointer to GETVEC routine for Pro 

Get 2*# entries in device tables 

Set code saying this is load code 

Point to handler entry address vector 

Point to entry cell for this handler 

; ; Map Kpar5 to handler if it is a mapped 

; ; Get pointer to Read routine 

;;Execute the load code 

i ; Br if handler load code signaled an error 



i i i Restore 
i Unmap the 
i Clear the 



original 
handler 
carry flag 



mapping for RT-11 
for return 



Error occurred in fetch/load code 



i J ; Restore original mapping for RT-11 

J Unmap the handler 

;Set the carry flag for return 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



. SBTTL LDREAD — Perform I/O for handler load code 

This routine performs Read operations for handler load code. 
It simulates the operation of the bootstrap read routine. 
When called, Channel 1 must be open to the handler file. 

Inputs: 
RO = Block number within handler file to be read. 
Rl = Number of words to read. 
R2 = Buffer address 

Outputs: 
C-flag is set if a read error occurs 



022512 010046 
022514 010446 
022516 010004 



022520 105737 OOOOOOG 

022524 001402 

022526 013746 OOOOOOG 

022532 013746 OOOOOOG 

022536 013746 OOOOOOG 

022542 013746 OOOOOOG 

022546 012737 001400 OOOOOOG 



022554 004737 022736 ' 



LDREAD: MOV 
MOV 
MOV 



022560 
022612 



103420 



022614 013704 000144' 
022620 004737 022662 ' 



022624 012637 OOOOOOG 

022630 012637 OOOOOOG 

022634 012637 OOOOOOG 

022640 105737 OOOOOOG 

022644 001402 

022646 012637 OOOOOOG 



022652 000241 

022654 012604 

022656 012600 

022660 000207 



RO, -<SP) 
R4, -(SP) 
RO, R4 



, , , 

i i i 



Get starting block number 



Save current mapping information 



1*: 



TSTB MEM256 

BEQ 1$ 

MOV @#SR 3MMR , - ( SP ) 

MOV @#SROMMR,-<SP) 

MOV @#KPAR5, -(SP) 

MOV @#KPAR6, -<SP) 

MOV #1400, e#KPAR6 

Turn off handler mapping 

CALL HANUMP 



;;Does machine have > 256? 

i i Br if not 

; ; Save extended memory address register 

; j Save memory mapping 

i ; Save current KPAR5 mapping 

; ; Save current KPAR6 mapping 

j; Restore original mapping for RT-11 



Turn off handler mapping 



Read the requested data from the handler 



. READW 
BCS 



#AREA, #1,R2, R1,R4 ; Read the blocks 



9* 



Restore handler mapping 



MOV 
CALL 



CURDEV, R4 
HANMAP 



Restore mapping information 



MOV 


(SP)+, e#KPAR6 


MOV 


(SP)+, @#KPAR5 


MOV 


< SP ) +, @#SROMMR 


TSTB 


MEM256 


BEQ 


2« 


MOV 


<SP)+, @#SR3MMR 


; Finished 




2*: CLC 




9*: MOV 


(SP)+, R4 


MOV 


(SP)+, RO 


RETURN 





i Br if read error 



; Get current device index 
; j » Map Kpar5 if necessary 



i } Restore KPAR6 mapping 

i ; Restore KPAR5 mapping 

; j Restore memory mapping 

j i Does machine have > 256? 

i j Br if not 

;; Restore extended memory address register 



ii Signal success on return 



€ 
4 
4 
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— Set up KPAR5 to access a mapped handier 



SBTTL HANMAP 



Set up KPAR5 to access a mapped handler 



022662 



022662 



022670 012737 0000000 OOOOOOG 



022676 005764 0000000 
022702 001403 



This routine is called to determine if a handler is mapped and if so 

to turn on mapping and set up KPAR5 to access the mapped handler. 

If the handler is not mapped, mapping is not turned on and KPAR5 is 

not altered. 

Interrupts ars left disabled by this routine. 

In addition to setting up mapping, this routine also changes the RMON 

pointer to point to the TSX~Plus simulated RMON vector. 

Inputs: 
R4 = Device index number 

HANMAP: 

Disable interrupts 

DISABL iiiDisable interrupts 

Change RMON pointer to point to TSX-Plus vector 

MOV #MONVEC, ©#RMON ; > ; Say TSX-Plus is the monitor 
See if this handler is mapped 



TST HANPAR(R4) 
BEQ 9* 

This handler is mapped. 

Set up mapping to access it. 



; ; i Is this handler mapped? 
; ; i Br if not 



022704 016437 OOOOOOG OOOOOOG MOV 

022712 052737 OOOOOOG OOOOOOG 9$; BIS 

022720 105737 OOOOOOG TSTB 

022724 001403 BEQ 

022726 052737 OOOOOOG OOOOOOG BIS 



HANPAR<R4),®#KPAR5i ; i Map KPAR5 to the handler code 



#MMENBL, e#SROMMR 

MEM256 

10* 

#EMMAP, e#SR3MMR 



; Enable memory mapping 

i Does machine have > 256KB? 

i Br if not 

i Enable extended memory addressing 



022734 000207 



022736 



Finished 

10*: RETURN 

. SBTTL HANUMP — Turn off memory mapping to a handler 

This routine is the companion to HANMAP. It turns off memory mapping 
and restores KPAR5 to its normal mapping value. 

Enter with interrupts disabled. Interrupts are enabled on return. 
This routine also changes the RMON pointer back to RT-11. 

HANUMP: 



022736 105737 OOOOOOG 

022742 001403 

022744 042737 OOOOOOG OOOOOOG 

022752 042737 OOOOOOG OOOOOOG 1* 

022760 012737 001200 OOOOOOG 



i Turn off 


memory management 


TSTB 


MEM256 


BEQ 


1* 


BIC 


#EMMAP, e#SR3MMR 


1*: BIC 


#MMENBL, e#SROMMR 


MOV 


#1200, @#KPAR5 



i Does machine have > 256KB? 

; Br if not 

; Turn off extended memory addressing 

j Turn off memory mapping 

i Reset KPAR5 to its normal mapping 



I 
< 

i 

I 
4 
I 
€ 
4 
I 
I 
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HANUMP — Turn off memory mapping to a handler 



58 

59 

60 

61 022766 013737 000046' OOOOOOG 

62 

63 

64 

65 022774 

66 

67 

68 

69 023002 000207 



Restore RMON pointer to RTll 

MOV RTMNVC, e#RMON ;;; Reset RMON pointer 
Enable interrupts 

ENABL ; Enable interrupts 

Finished 

RETURN 



TSINIT 
FNDHRB 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

37 



28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
30 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



023004 010246 



023006 
023010 
023014 
023016 
023020 
023022 
023024 
023026 
023032 
023034 
023040 
023042 
023050 
023052 
023056 



023060 
023062 
023064 
023070 
023076 
023104 
023106 



005002 
013701 
005721 
005711 
001002 
010102 
000412 
021127 
001412 
021561 
001004 
026561 
001417 
062701 
000757 



010201 
001410 
011561 
016561 
063761 
000261 
000401 



023110 000241 



. SBTTL FNDHRB — Try to find a handler global region 

This routine is called to try to locate an allocated XM region with 

a specified name. 

If a region control block with the specified name cannot be found* 

the address of a free one is returned and the specified name is stored 

into the free block. 

Inputs: 
R5 = Pointer to 2-word cell containing Rad50 name of region to be found. 

Outputs: 
C-flag cleared ==> Found the specified RCB. 

Rl = Address of the RCB 
C-flag set ==> Could not find the specified RCB. 

Rl = Pointer to a free RCB or if no available RCB's. 

FNDHRB: MOV R2, -<SP) 

Search for specified RCB and also remember if we see a free RCB 



0000000 



177777 

000006 

000002 000010 

000012 



1*: 



2*: 



3*: 



CLR R2 

MOV HANRCB,R1 

TST <R1)+ 

TST (Rl) 

BNE 2* 

MOV R1,R2 

BR 3* 

CMP (Rl),#-1 

BEQ 4* 

CMP <R5>,6<R1) 

BNE 3* 

CMP 2(R5>,10<R1) 

BEQ 6« 

ADD #12, Rl 

BR 1$ 



i Say no free RCB found 

; Point to start of RCB area 

/Skip over -1 word at front 

i What is the status of this RCB 

; Br if this is not a free RCB 

i Remember address of a free RCB 

i Are we at the end of the list? 

i Br if yes 

> Compare the names 

; Br if don't match 

i Compare 2nd half of name 

; Br if found the RCB we were searching for 

i Point to the next RCB 

j Continue searching 



We could not find the specified RCB. 

If there was a free one/ initialize the name. 



4*: 



000006 

000002 000010 

000144' 000010 



5*: 



MOV 
BEQ 
MOV 
MOV 
ADD 
SEC 
BR 



R2, Rl 

5* 

<R5), 6(R1) 

2<R5), 10<R1) 

CURDEV, 10<R1) 

9* 



023112 
023114 



012602 
000207 



We found the RCB 

6*: CLC 

Finished 

9*: MOV (SP)+, R2 
RETURN 



J Was there a free RCB? 

; Br if not 

i Set name in the RCB 

; (2nd word of name) 

;Make name unique to device 

i Signal that we did not find the RCB 



Signal success on return 



TSINIT 
HANXMR 
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— Allocate XM region during handler load 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 



023116 010046 



023120 013700 000134' 

023124 163700 000136' 

023130 020200 

023132 101006 



023134 160237 000134' 

023140 013701 000134' 

023144 000241 

023146 000402 



023150 010002 
023152 000261 



023154 012600 
023156 000207 



. SBTTL HANXMR 



Allocate XM region during handler load 



This routine can be called by a handler as its is being loaded to 
allocate an XM region for the handler. 

Inputs: 
R2 = Number of 64-byte units needed for XM region 

Outputs: 
C-flag cleared --> Successfully allocated a region 

Rl = 64-byte address of base of allocated region 

R2 =: Requested size 
C-flag set ==> Could not allocate the region 

R2 = Largest available region size 

Notes: FMEMLO and FMEMHI are used by this routine to indicate the 
bottom and top of the free memory area that can be allocated. 
The allocation is done from the top of free memory downward. 
FMEMHI is updated to have the new top of free memory after the 
allocation has been done. 



HANXMR: MOV 



RO, -<SP) 



MOV 


FMEMHI, RO 


SUB 


FMEMLO, RO 


CMP 


R2, RO 


BHI 


8$ 



Get the total amount of free memory space available now 
and see if the requested region can be allocated. 

; Top of free memory 

. -Base of free memory 

j Do we have room for the requested region? 

i Br if not 

There is room for the region so allocate it from the top of memory 

^Allocate the region 

j Return the address of the base of the region 

i Signal success on return 

We are not able to allocate the region. 

Return with C-flag set and the size of the largest possible region in R2. 



SUB 


R2, FMEMHI 


MOV 


FMEMHI, Rl 


CLC 




BR 


9* 



8*: 



9*: 



MOV 


RO, R2 


SEC 




inished 




MOV 


<SP)+, RO 


RETURN 





i Get the size of the largest possible region 
; Signal failure on return 



TSINIT 
HAN X MR 
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— Allocate XM region during handler load 



1 
2 
3 
4 
5 
6 
7 

a 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



023160 010146 



023162 005727 0000000 

023166 001017 

023170 032737 000001 000306' 

023176 001013 



.IF NE, <PR0ASM-1> ; If assembling for PDP-11 

. SBTTL SETMIO — Set up information about mapped devices 

SETMIO is called to set up information about tuhich devices have to have 
their I/O mapped through system buffers. I/O mapping is done for DMA 
devices mith 18-bit controllers being used on Q-bus systems with more 
than 256Kb of memory. 
The DX*MAP flag is set in the DVFLAG word for devices that require mapping. 

Inputs: 
R5 = Pointer to low-memory free area 

Outputs: 
MIOFLAG = 0==>I/0 mapping not required for any device; 

l==>I/0 mapping required for some device. 
R5 = Pointer to new low-memory free area. 

SETMIO: MOV Rli-(SP) 

Determine if this machine requires mapping at all 



TST 
BNE 
BIT 
BNE 



#MIODBG 

2$ 

#EXTLSI. ICONFG i Is this a Q-bus machine with more than 256Kb? 



; Are we debugging mapped I/O system? 
; Br if yes 



J* 



J Br if yes 



This is not a Q-bus system with more than 256Kb. 
Mapping is not required at all. 



023200 012701 000002 

023204 042761 OOOOOOG OOOOOOG 1*: 

023212 062701 000002 

023216 020137 OOOOOOG 

023222 101770 

023224 000464 



MOV #2*R1 > Get initial device index number 

BIC #DX*MAP, DVFLAG <R1> ; Clear mapped~I/0 flag 

ADD #2< Rl ; Get next device index 

CMP R1,NUMDEV ; More to do? 

BLOS 1* ; Br if yes 

BR 9* 



This is a Q-bus system with more than 256Kb. 
See if any devices have requested mapped I/O. 



023226 005000 

023230 012701 000002 

023234 056100 OOOOOOG 

023240 062701 000002 

023244 020137 OOOOOOG 

023250 101771 

023252 032700 OOOOOOG 

023256 001447 



023260 105237 OOOOOOG 



023264 113701 OOOOOOG 
023270 070127 OOOOOOG 
023274 062701 OOOOOOC 



2*: 
3*: 



CLR 


RO ; 


MOV 


#2. Rl ; 


BIS 


DVFLAG(R1),R0 i 


ADD 


#2, Ri i 


CMP 


Rl.NUMDEV ; 


BLOS 


3* / 


BIT 


#DX*MAP, RO ; 


BEQ 


9* i 



I/O mapping is required 
INCB MIOFLG 



; Clear composite flag word 

; Initialize device index number 

i Combine flags from all devices 

* Get next device index number 

iChecked all devices? 

/Br if not 

; Does any device require mapping? 

; Br if not 



i Remember that mapping is required 



Zero the area where we will build the control structures 

MOVB VMIOBF, Rl i Get # buffers wanted 

MUL #MI**SZ.R1 ; Times size for each control block 

ADD #MIONWB*MW**SZ, Rl; Add space for MIO wait blocks 





TSINIT - 


-- TSX s 


tartup initializ 




SETMIO - 


— Set u 


p information ab 




5e 


023300 


006201 






59 


023302 


010500 






60 


023304 


005020 






61 


023306 


077102 






62 










63 










64 










65 


023310 


010537 


ooooooe 




66 


023314 


113700 


OOOOOOG 




67 


023320 


010501 






68 


023322 


062701 


OOOOOOG 




69 


023326 


005300 






70 


023330 


003404 






71 


023332 


010165 


ooooooe 




72 


023336 


010105 






73 


023340 


000767 






74 


023342 


010105 






75 


023344 


010537 


OOOOOOG 




76 


023350 


012700 


177777G 




77 


023354 


010501 






78 


023356 


062701 


OOOOOOG 




79 


023362 


010165 


OOOOOOG 




80 


023366 


010105 






81 


023370 


077007 






82 


023372 


062705 


OOOOOOG 




83 
84 
85 










86 


023376 


012601 






87 
88 


023400 


000207 






89 
90 
91 










92 
93 
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4*: 



ASR 
MOV 
CLR 
SOB 



Rl 

R5, RO 
(R0) + 
Rl,4« 



» Get # uiords to zero 

; Get pointer to start of area 

} Zero the entire area 



Allocate and initialize the control structures 



5*: 



MOV 

MOVB 

MOV 

ADD 

DEC 

BLE 

MOV 

MOV 

BR 
6*; MOV 

MOV 

MOV 
7*: MOV 

ADD 

MOV 

MOV 

SOB 

ADD 

i Finished 

i 

9*: MOV 

RETURN 
. IFF 

i 

i Define dummy 



SETMIO: 



RETURN 
. ENDC 



R5, MIOBHD 

VMIOBF, RO 

R5, Rl 

#MI**SZ.R1 

RO 

6« 

Rl, MI*LNK(R5) 

R1,R5 

5* 

R1,R5 

R5, MIOWHD 

#MI0NWB-1,R0 

R5, Rl 

#MW**SZ,R1 

R1.MW*LNK(R5) 

Rl, R5 

RO, 7* 

#MW**SZ, R5 



(SP)+, Rl 

} HE, <PR0ASM-1> 

routine for Pro 

; NE, <PR0ASM"1> 



Start 
Get # 
Get po 
Get po 
Need t 
Br if 
Set po 
Advanc 
See if 
Set po 
Start 
Get # 
Get 
Get 
Set 
Advanc 
Loop i 
Al loca 



po 
po 
po 



of area for I/O mapping control blks 

buffers wanted 

inter to current control block 

inter to next control block 

o link more together? 

not 

inter to next control block 

e pointer to next block 

more to do 
inter past last block 
of wait blocks 
wait blocks wanted - 1 
inter to current block 
inter to next block 
inter to next wait block 
e pointer to next block 
f more to allocate 
te space for last block <with link) 
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023402 
023404 
023406 
023410 
023412 



023420 
023424 
023430 
023434 
023440 
023444 
023446 
023452 
023456 
023462 
023464 
023466 
023472 
023474 
023476 
023502 
023506 
023512 
023514 
023520 
023524 



023526 
023532 
023534 
023540 
023542 



010146 
010246 
010346 
010446 
010504 



023414 004737 023612' 



062704 
042704 
010437 
012702 
005762 
001423 
016200 
016000 
012701 
020021 
001404 
020127 
103773 
000407 
005262 
016200 
072027 
060004 
062702 
020237 
103745 



020427 
103021 
012705 
160405 
072527 



000077 
000077 
000140' 
000576 ' 
000000 

000004 

OOOOOOG 

001026' 



001034' 



000002 
000000 
000006 

000006 
001024' 



030004 ' 
030066 ' 
177772 



. SBTTL OVLPOS — Determine which overlays go over TSINIT 

OVLPOS is called to determine which system overlays are to be placed 
over the TSINIT code (specifically* between SOVLBAS and INITOP). 

Inputs: 
R5 = Base address in TSINIT where overlays may be loaded. 

Outputs: 
Overlay segment information is set up in OSTABL. 

OS*FLG<seg) = 0===>Load seg into high memory; l==>Load over TSINIT. 
OVLBAS = Address of location within TSINIT where overlays start. 
R5 = Pointer past last overlay loaded over TSINIT. 



OVLPOS: MOV 
MOV 
MOV 
MOV 
MOV 



Rl, -(SP) 
R2, -<SP) 
R3, -(SP) 
R4, -(SP) 
R5, R4 



; Get address where we may load overlays 

Build the table that holds information about the overlays 

CALL OVLBLD ; Bui Id overlay information table 

First determine how much space will be used by those overlays that are 
forced to be loaded over TSINIT. 



1*: 



6*: 



4*: 



2*: 



ADD #63. , R4 

BIC #77, R4 

MOV R4, OVLBAS 

MOV #OSTABL, R2 

TST 0S*SIZ(R2) 

BE(3 2* 

MOV 0S*0VL(R2),R0 

MOV O. ADR(R0),R0 

MOV #L0W0VL, Rl 

CMP RO, (Rl) + 

BEQ 4« 

CMP R1,#L0WEND 

BLO 6$ 

BR 2* 

INC 0S*FLG(R2) 

MOV 0S*SIZ(R2),R0 

ASH #6, RO 

ADD RO, R4 

ADD #OS«*SZ, R2 

CMP R2, OSLAST 

BLO 1* 



j Bound address to 64-byte boundary 

Remember address where we load overlays 

Point to start of table 

Is this overlay to be loaded? 

Br if not 

Point to linker-built entry 

Get Rad50 segment ID 

Point to table of overlays to go over TSINIT 

Must this overlay go over TSINIT? 

Br if yes 

End of low-overlay table? 

Br if not 

This overlay is not forced over TSINIT 

Set flag saying load over TSINIT 

Get # 64-byte blocks needed for overlay 

Get # bytes needed for overlay 

Advance address within TSINIT 

Point to entry for next segment 

Have we finished? 

Loop if not 



Determine how much memory space is available in TSINIT for other overlays 

; Any space left for other overlays? 

J Br if not 

; Point to top of overlay area 

; Total space available for overlays 

/Convert to # 64-byte blocks 



CMP 


R4, #INIT0P-50 


BHIS 


9* 


MOV 


#INIT0P,R5 


SUB 


R4, R5 


ASH 


#-6, R5 



1 

{ 
i 
I 

t < 

t 
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i 
i 
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I 
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TSINIT — TSX startup initializ MACRO V05. 04 Monday 14-Dec-87 08:35 Page 65-1 
OVLPOS — Determine uhich overlays go over TSINIT 



58 
59 
60 
61 

62 023546 

63 023552 

64 023554 

65 023560 

66 023564 

67 023566 

68 023572 

69 023574 
70 

71 
72 

73 023576 

74 023600 

75 023602 

76 023604 

77 023606 

78 023610 



004737 
103411 
005262 
016200 
160005 
072027 
060004 
000764 



010405 
012604 
012603 
012602 
012601 
000207 



025004 

000002 
000000 

000006 



Now begin loop which determines which other overlays go over TSINIT. 
We do this in the order of largest to smallest to try to fill 
the overlay area as completely as possible. 

3«: CALL OVLTRY i Try to find largest overlay that will fit 

; Br if no more overlays will fit 
j Remember to load over TSINIT 
RO i Get # 64-byte blocks needed for overlay 
/Reduce remaining free space in TSINIT 
;Get # bytes needed for overlay 
; Advance overlay address in TSINIT 
i See if we can find more segments to load 



9*: 



CALL 


OVLTRY 


BCS 


9* 


INC 


0S*FLG(R2) 


MOV 


0S*SIZ(R2) 


SUB 


RO, R5 


ASH 


#6, RO 


ADD 


RO, R4 


BR 


3* 


Finished 




MOV 


R4, R5 


MOV 


(SP)+, R4 


MOV 


(SP)+, R3 


MOV 


<SP)+, R2 


MOV 


<SP)+,R1 


RETURN 





J Return top-of-overlay address in R5 



i 
I 
I 

4 
< 
I 
t 
I 

i 
C 

i 
i 
I 
i 
i 
I 
I 

4 



TSINIT — 
OVLBLD — 

1 
2 
3 
4 
5 
6 
7 

a 

9 
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26 
27 



10 023612 

11 023614 

12 023616 
13 

14 
15 

16 023620 

17 023624 

18 023660 

19 023662 

20 023666 
21 

22 
23 

24 023670 

25 023676 
023704 
023710 

28 
29 
30 

31 023714 

32 023720 

33 023724 

34 023730 

35 023734 

36 023740 

37 023744 

38 023750 

39 023754 

40 023756 
41 

42 
43 

44 023762 

45 023764 

46 023766 

47 023770 
48 

49 
50 
51 
52 



023772 
024000 



103444 
016201 
001012 



012737 
012737 
012701 
010137 



012703 
010163 
005063 
004737 
010263 
062703 
062701 
021127 
001361 
010337 



012603 
012602 
012601 
000207 



. BBTTL OVLBLD — Build overlay information table 

OVLBLD is called to build an overlay information table that is used 
by TSINIT while loading TSX overlays into memory. 

Outputs: 
Overlay segment information is set up in OSTABL. 
OSLAST = Pointer past last entry in OSTABL. 



010146 
010246 
010346 



013702 000 15J 



OVLBLD: MOV 
MOV 
MOV 



Rl, -<SP) 
R2, -<SP) 
R3, -<SP) 



000064 



Read 1st block of SAV file to get pointer to overlay table 

MOV WRKBUF, R2 i Point to work buffer 

. READW #AREA, #17, R2, #256. ,#0 i read first block of the save file 

BCS 22* ; Br if error on read 

MOV 64(R2>,R1 ; point to the overlay table 

BNE 15* ; br if overlays exist 

Must be verion 3B overlays structure at absolute location. 



000137 001000 
OOOOOOG 001002 
001104 
OOOOOOG 



000576 ' 

000004 

000002 

024132' 

000000 

000006 

000006 

004537 



MOV #137, e# 1000 

MOV #*OVRH, e#1002 

MOV #1104, Rl 

MOV R 1 , OVRADD 



; position jump instrucion over 3b ovly handler 

J position overlay intercept location 

; point to the overlay table 

; save the address of the overlay table 



Initialize the table that holds information about the overlays 



001024 



15*: MOV 
11*: MOV 
CLR 
CALL 
MOV 
ADD 
12*: ADD 
CMP 
BNE 
MOV 

Finished 

MOV 
MOV 
MOV 
RETURN 



#OSTABL, R3 

R1,0S*0VL<R3) 

0S*FLG<R3) 

ALCOVL 

R2, 0S*SIZ<R3) 

#OS**SZ, R3 

#6, Rl 

(Rl),#4537 

11* 

R3, OSLAST 



<SP)+, R3 
(SP)+, R2 
(SP)+,R1 



Point to table for overlay info 

Save pointer to overlay control block 

Assume seg will be loaded in high memory 

Determine if we should load this overlay 

Remember total size of overlay-^data 

Point to next overlay table entry 

find the next region 

compare with a <JSR R5, *OVRH> instruction 

Br if not at end 

Save pointer past last overlay table entry 



53 024006 000137 004216 



Error — Read error occured while reading overlay table 

S: . PRINT #TSXHD 
. PRINT #RDERR 
JMP INISTP 



TSINIT — TSX startup initializ MACRO V05. 04 Monday 14-Dec-S7 08:35 Page 67 
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I 
i 



2 

3 

4 

5 

6 

7 

8 

9 
10 
11 

12 024012 

13 024014 

14 024016 

15 024020 
16 

17 
18 
19 

20 024024 

21 024030 

22 024034 

23 024040 

24 024044 

25 024050 
26 

27 
28 

29 024052 

30 024056 

31 024062 

32 024064 

33 024070 

34 024072 

35 024076 

36 024102 

37 024106 
38 

39 
40 

41 024110 

42 024114 

43 024116 

44 024122 

45 024124 



010146 
010246 
010346 
010537 OOOOOOG 



012703 000576' 

004737 024276 ' 

010263 000000 

062703 000006 

020337 001024' 
103767 



012702 000576' 

005762 000000 

001405 

005762 000002 

001002 

004737 025102' 

062702 000006 

020237 001024' 

103763 



013700 OOOOOOG 

160500 

010037 OOOOOOG 

012603 

012602 

46 024126 012601 

47 024130 000207 



. SBTTL GETMAP — Load any mapped system code regions 

GETMAP is called to load those system overlays that are placed 
in high memory. 

Inputs: 

R5 == 64-byte block number of top of free memory. 

Outputs: 
R5 = New 64-byte block number of top of free memory. 



GETMAP : MOV 
MOV 
MOV 
MOV 



Rl, -<SP) 
R2, -(SP) 
R3, -<SP) 
R5, SMRSIZ 



Save memory pointer at start of allocation 



MOV 


#OSTABL, R3 


CALL 


OPTOVL 


MOV 


R2. 0S*SIZ(R3) 


ADD 


#OS**SZ, R3 


CMP 


R3, OSLAST 


BLO 


1$ 



Now that most of the system initialization is completed* we must check 
again to see which overlays need to be loaded. 

Point to 1st overlay table entry 
1*: CALL OPTOVL ; See if this segment should be loaded 

Save # 64-byte blocks needed for overlay 
Point to next overlay table entry 
Checked all entries in overlay table? 
Br if not 

Load those overlays that go into high memory 

Point to 1st overlay entry 
3*: TST 0S*SIZ<R2> > Is this overlay segment wanted? 

Br if not 

Load over TSINIT or into high memory? 

Br if load over TSINIT 

Load overlay into high memory 
4*: ADD #0S**SZ,R2 ; Point to next overlay table entry 

Have we done all overlays? 

Loop if not 



19* 





MOV 


#OSTABL, R2 




TST 


0S*SIZ(R2> 




BEQ 


4* 




TST 


0S*FLG<R2) 




BNE 


4* 




CALL 


GETOVL 




ADD 


#0S**SZ,R2 




CMP 


R2, OSLAST 




BLO 


3* 


F 


inished 






MOV 


SMRSIZ,RO 




SUB 


R5, RO 




MOV 


RO, SMRSIZ 




MOV 


(SP)+, R3 




MOV 


<SP)+, R2 




MOV 


(SP)+,R1 




RETURN 





/Get memory pointer at start of allocation 

;Calc amt of space allocated 

i Save total space used for mapped regions 



TSINIT - 
ALCOVL - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

le 

19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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Allocate space for a system overlay region 



I 



. SBTTL ALCOVL 



Allocate space for a system overlay region 



024132 010146 



024134 016301 000004 



024140 013702 000152' 

024144 

024202 103415 



024204 016261 000002 OOOOOOG 



024212 016102 OOOOOOG 

024216 006302 

024220 020227 020000 

024224 101014 



ALCOVL is called to determine if a system overlay region is wanted 
(based on sysgen options), and if it is wanted to determine how 
much space is needed for the code and data. 

Inputs: 
R3 = Pointer to overlay table entry (OS*xxx) 

Outputs: 
C-fiag cleared ==»> This segment is to be loaded. 
C~flag set ==> Do not load this overlay segment. 
R2 = # 64-Byte blocks needed for segment including data areas within it. 

ALCOVL: MOV R1,-(SP) 

i 

f Get pointer to linker-bui Id overlay entry for segment 

i 

MOV 0S*0VL(R3), Rl ; Get pointer to linker-built entry for seg 

i 

i Read in the first block of the overlay segment 

MOV WRKBUF, R2 ; Point to work buffer 

. READW #AREA, #17, R2, #256. , 0. BLK(Rl) } read the first block 

BCS 3* i Br if read error 

Save the 3 character Rad50 segment ID in the 0. ADR cell of the 
linker-built overlay table entry for this segment. 

MOV 2<R2), 0. ADR(Rl) i save the radSO overlay identifier 

Make sure the segment is not larger than SKb 

} get the word count of the code region 
i convert to byte count 
J check for 8kb overflow 
i Br if region is too big 

Don't load some optional segments if features were not selected 
in TSGEN. 



MOV 


0. SIZ(R1)>R2 


ASL 


R2 


CMP 


R2, #20000 


BHI 


21* 



024; 



004737 024276 ' 



CALL 



OPTOVL 



i See if we want to load this segment 



024232 012601 
024234 000207 



024236 
024244 
024252 000137 004216 



Finished 

The C-flag is set or reset by OPTOVL. 

MOV <SP)+, Rl 
RETURN 



Error 



Error on reading from SAV file 



3*: .PRINT #TSXHD 
.PRINT #RDERR 
JMP INISTP 



i Print heading 

i Read error 

;Abort initialization 



Error — Insufficient memory space to load run-time systems 
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ALCOVL — Allocate space for a system overlay region 

58 024256 21*: .PRINT #TSXHD i PRINT HEADING 

59 024264 .PRINT #TSXSIZ /PRINT ERROR MESSAGE 

60 024272 000137 004216' JMP INISTP i ABORT INITIALIZATION 



I 



TSINIT - 


-- TSX 5 


tartup initializ 


OPTOVL - 


— Check 


for opt 


ional sy 


1 
2 








3 








4 








5 








6 








7 








S 








9 








10 








11 








12 








13 








14 








15 


024276 


010346 




16 


024300 


010446 




17 


024302 


010546 




18 








19 








20 








21 


024304 


016305 


000004 


22 


024310 


016504 


OOOOOOG 


23 








24 








25 








26 


024314 


016502 


OOOOOOG 


27 


024320 


006302 




28 








29 








30 








31 


024322 


012700 


024346 ' 


32 


024326 


020420 




33 


024330 


001405 




34 


024332 


005720 




35 


024334 


020027 


024432 ' 


36 


024340 


103772 




37 


024342 


000577 




38 








39 








40 








41 


024344 


000130 




42 








43 








44 








45 








46 








47 








48 








49 








50 


024346 






51 


024346 






52 


024352 






53 


024356 






54 


024362 






55 


024366 






56 


024372 






57 


024376 
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stem overlay regions 



. SBTTL OPTOVL 



Check for optional system overlay regions 



OPTOVL is called to determine if a specific system overlay is or is 

not to be loaded based on sysgen options. 

This routine may also add space for buffers to the overlay regions size. 

Inputs: 
R3 = Pointer to overlay table entry for segment (OS$xxx> 

Outputs: 
C-flag cleared ==> Load this overlay. 
C-flag set ==> Do not load this overlay. 
R2 = # 64-byte blocks needed for code + data for the segment. 



OPTOVL: MOV 
MOV 
MOV 



R3i -(SP) 
R4, -(SP) 
R5, -<SP> 



Get the name of the overlay segment 

MOV 0S*0VL<R3), R5 i Get pointer to linker-built entry 
MOV 0. ADR<R5),R4 i Get name of the segment 

Get size of code portion of overlay segment 



MOV 0. SIZ<R5),R2 
ASL R2 



; Get # uords needed by code portion of seg 
i Convert to # bytes 



See if this is an optional segment that ue need to deal uiith specially 



MOV #0VLLST> RO 

1*: CMP R4, <R0) + 

BEQ 2* 

TST (R0)+ 

CMP RO, #OVLEND 

BLO 1* 

BR OOXYES 



i Point to overlay name list 

j Found name of overlay? 

J Br if yes 

i No — Skip over address uord 

; Checked all names in the list? 

; Loop if not 

; Load this overlay 



Branch off to processing routine 

2*: JMP S<RO)+ ; Enter processing routine for the overlay 

Table of overlay names and processing routines 

. MACRO OVLTBL NAME 

. RAD50 /'NAME'/ 

. WORD OOR 'NAME 

. ENDM OVLTBL 



OVLLST: 



OVLTBL USR 

OVLTBL SPL 

OVLTBL LOK 

OVLTBL MSG 

OVLTBL SWP 

OVLTBL PLS 

OVLTBL SLE 



TSUSR — File management 

TSSPOL — Spooling system 

TSLOCK — Shared file record locking 

TSMSG — Inter-job message communication 

TSSWAP — Job swapper 

TSPLAS — PLAS support 

TSSLE — Single line editor 



TSIIMIT - 


— TSX s 


tartup initiaiiz 


OPTOVL - 


-- Check 


for opt 


ional sy 


58 


024402 






59 


024406 






60 


024412 






61 


024416 






62 


024422 






63 


024426 






64 


024432 






65 








66 








67 








68 


024432 


013703 


OOOOOOG 


69 


024436 


070327 


OOOOOOG 


70 


024442 


060302 




71 


024444 


000536 




72 








73 








74 








75 


024446 


005727 


ooooooe 


76 


024452 


001530 




77 


024454 


062702 


OOOOOOG 


78 


024460 


013703 


0000000 


79 


024464 


062703 


000007 


80 


024470 


072327 


177775 


81 


024474 


005203 




82 


024476 


042703 


000001 


83 


024502 


060302 




84 


024504 


000516 




85 








86 








87 








88 


024506 


005737 


ooooooe 


89 


024512 


001510 




90 


024514 


005737 


OOOOOOG 


91 


024520 


001110 




92 


024522 


162702 


OOOOOOG 


93 


024526 


000505 




94 








95 








96 








97 


024530 


013703 


OOOOOOG 


98 


024534 


001477 




99 


024536 


070327 


OOOOOOG 


100 


024542 


060302 




101 


024544 


013703 


OOOOOOG 


102 


024550 


070327 


OOOOOOG 


103 


024554 


060302 




104 


024556 


013703 


OOOOOOG 


105 


024562 


005203 




106 


024564 


042703 


000001 


107 


024570 


062703 


OOOOOOG 


108 


024574 


070337 


OOOOOOG 


109 


024600 


060302 




110 


024602 


000457 




111 








112 








113 








114 


024604 


013703 


OOOOOOG 
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item overlay regions 



DVLTBL 
OVLTBL 
OVLTBL 
OVLTBL 
OVLTBL 
OVLTBL 



WIN 
MIO 
CLO 
DBG 
CSH 
DMP 
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TSWIN 
TSMIO - 
TSCLO - 
TSDBUG - 
TSCASH - 
TSDUMP - 



OVLEND: 



Display uindotit management 

- Mapped I/O 

- CL handler 
Program debugger 
Data caching 

- Crash dump generator 



File management 

OORUSR: MOV VNFCSH, R3 

MUL #FC«*SZ, R3 

ADD R3, R2 

BR OOXYES 

Spooling system 



OORSPL: TST 
BEO 
ADD 
MOV 
ADD 
ASH 
INC 
BIC 
ADD 
BR 



Record locking system 

OORLOK: TST VMXSF 

BEQ OOXNO 

TST VNUMDC 

BNE OOXYES 

SUB #DCCSIZ,R2 

BR OOXYES 

Message communication system 



#SPLND 




OOXNO 




#<SPLNB#512. 


>, R2i 


NSPLBL, R3 




#7, R3 




#-3, R3 




R3 




#1,R3 




R3, R2 


) 


OOXYES 


> 



OORMSG: MOV 
BEQ 
MUL 
ADD 
MOV 
MUL 
ADD 
MOV 
INC 
BIC 
ADD 
MUL 
ADD 
BR 

PLAS support 

OORPLS: MOV 



VMAXMC, R3 
OOXNO 

#MB**SZi R3 
R3. R2 
VMXMRB, R3 
#MR**SZ, R3 
R3, R2 
VMSCHR* R3 
R3 

#1,R3 

#MU*TXT, R3 
VMXMSG> R3 
R3, R2 
OOXYES 



VPLAS. R3 



Get # file cache entries 
Multiply by size of each entry 
Allocate space for directory cache 
Load the segment 



Are there any spooled devices? 

Br if not 

Reserve room for spool buffers 

Get # blocks for spool file 

Bound up to byte boundary 

Divide by 8 to get # bytes for table 

Round up to uiord boundary 

Add space for spool file allocation table 
Load the segment 



Any shared files? 

Br if not 

Shared file data caching wanted? 

Br if yes 

Reduce size of segment - Leave out cache code 

Load the segment 



Is message communication facility wanted? 

Br if not 

Space for message channel blocks 

Number of message request blocks 
Times size of request block 

Max # chars in a message 

Bound up to word 

Reserve whole number of words 

Plus space for message header 

Times maximum number of messages 

Space for message buffers 



PLAS support wanted? 



I 
I 





TSINIT - 


— TSX s 


tartup initializ 


MACRO V05. 04 Monday 14 


-Dec-S7 OB: 




OPTOVL ■ 


— Check 


for opt 


ional system overlay regions 






115 


024610 


001451 




BEQ 


OOXNO 




116 


024612 


062703 


000021 


ADD 


#17. ,R3 




117 


024616 


072327 


177775 


ASH 


#-3, R3 




iia 


024622 


060302 




ADD 


R3, R2 




119 


024624 


000446 




BR 


OOXYES 




120 














121 








i Job swapper 






122 














123 


024626 


105737 


ooooooe 


OORSWP: TSTB 


VSWPFL 




124 


024632 


001440 




BEQ 


OOXNO 




125 


024634 


000442 




BR 


OOXYES 




126 














127 








) Single line 


ed itor 




128 














129 


024636 


105737 


oooooos 


DORSLE: TSTB 


VSLEDT 




130 


024642 


001434 




BEQ 


OOXNO 




131 


024644 


000436 




BR 


OOXYES 




132 














133 








) Display uiind 


ows 




134 














135 


024646 


013703 


OOOOOOG 


OORWIN: MOV 


VMXWIN, R3 




136 


024652 


001430 




BEQ 


OOXNO 




137 


024654 


070327 


OOOOOOG 


MUL 


#DW**SZ, R3 




138 


024660 


060302 




ADD 


R3, R2 




139 


024662 


000427 




BR 


OOXYES 




140 














141 








i Mapped I/O 






142 














143 


024664 


105737 


OOOOOOG 


OORMIO: TSTB 


MIOFLG 




144 


024670 


001421 




BEQ 


OOXNO 




145 


024672 


000423 




BR 


OOXYES 




146 








; 






147 








; CL handler 






148 








f 






149 


024674 


005727 


OOOOOOG 


OORCLO: TST 


#CLTOTL 




150 


024700 


001415 




BEQ 


OOXNO 




151 


024702 


000417 




BR 


OOXYES 




152 








J 






153 
154 








i Program debu 


gger 




155 


024704 


105737 


OOOOOOG 


OORDBG: TSTB 


VDBFLG 




156 


024710 


001411 




BEQ 


OOXNO 




157 


024712 


000413 




BR 


OOXYES 




158 














159 








; Data caching 






160 














161 


024714 


005737 


OOOOOOG 


OORCSH: TST 


CSHALC 




162 


024720 


001405 




BEQ 


OOXNO 




163 


024722 


000407 




BR 


OOXYES 




164 














165 








J Crash dump g 


enerator 




166 














167 


024724 


105737 


OOOOOOG 


OORDMP: TSTB 


VSYDMP 




168 


024730 


001401 




BEQ 


OOXNO 




169 


024732 


000403 




BR 


OOXYES 




170 








r 






171 








> Don't load this segment 
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i Br if not 

; Bound up # blocks 

iGet # bytes needed for swap file bit map 

i Reserve room for swap file bit map 

; Load the segment 



; Is this a swapping system? 

; Br if not 

; Br if yes — Load the segment 



i Is SL editor wanted? 

; Br if not 

; Load the segment 



j Are any display windous wanted? 

/Br if not 

; Amt of space needed for window control blks 

iAdd to size of overlay 

; Load the segment 



; Is I/O mapping needed? 

; Br if not 

; Load the segment 



i Any I/O lines? 

i Br if not 

; Yesj load the segment 



i Is the program debugger wanted? 

; Br if not 

; Load this segment 



> Is data caching wanted? 

; Br if not 

; Load this segment 



; Is dump facility wanted? 
* Br if not 
j Br if yes 



I 
i 



I 

€ 
I 

i 



TSINIT - 


-- TSX s 


tartup initial! 


OPTOVL - 


~ Check 


for opt 


ional s 


172 








173 


024734 


005002 




174 


024736 


000261 




175 


024740 


000415 




176 








177 








17e 








179 


024742 


005202 




ISO 


024744 


042702 


000001 


181 


024750 


020227 


020000 


182 


024754 


101402 




183 


024756 


012702 


020000 


184 


024762 


062702 


000077 


185 


024766 


072227 


177772 


186 


024772 


000241 




187 








188 








189 








190 


024774 


012605 




191 


024776 


012604 




192 


025000 


012603 




193 


025002 


000207 





^ Monday 14-Dec-87 08:35 
regions 



OOXNO: CLR 
SEC 
BR 



R2 



OOXFIN 



Load this segment 



00 X YES: INC 
BIC 
CMP 
BLOS 
MOV 

1*: ADD 
ASH 
CLC 

; Finished 

OOXFIN: MOV 
MOV 
MOV 
RETURN 



R2 

#1,R2 

R2, #8192. 

1$ 

#8192. ,R2 

#63. , R2 

#-6, R2 



<SP)+, R5 
<SP)+, R4 
<SP)+, R3 
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; Say no space needed for overlay 
; Signal don't load the segment 



;Make sure size is even 

/Don't allou code + data to exceed 8Kb 

j Br if ok 

;Note» init code in segment will truncate dat 

/Convert to # 64-byte blocks 

i Signal to load the segment 
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OVLTRY -- Find an overlay to place over TSINIT 



i 
I 



1 
2 
3 
4 
5 
6 
7 

e 

9 
10 
11 
12 
13 

14 025004 
15 
16 
17 

18 025006 

19 025010 

20 025014 

21 025020 

22 025022 

23 025026 

24 025030 

25 025034 

26 025036 

27 025040 

28 025042 

29 025050 

30 025052 

31 025054 

32 025060 

33 025064 
34 

35 
36 

37 025066 

38 025070 

39 025072 

40 025074 

41 025076 

42 025100 



010346 



005002 
012703 
005763 
001415 
005763 
001012 
026305 
101007 
005702 
001404 
026362 
101401 
010302 
062703 
020337 
103753 



000241 
005702 
001001 
000261 
012603 
000207 



. SBTTL OVLTRY — Find an overlay to place over TSINIT 

OVLTRY is called to identify the largest overlay segment uihich 
will fit in the TSINIT area and uihich is not already marked to go 
over TSINIT. 

Inputs: 
R5 = # 64-byte blocks available for segment in TSINIT. 

Outputs: 
R2 = Pointer to OSTABL entry for segment 
C-flag set ==> No more segments will fit. 

OVLTRY: MOV R3, -<SP) 

Begin loop to examine all segments 



000576' 
000000 

000002 

000000 



000000 000000 



1*: 



000006 
001024' 



3*: 
2*: 



9*: 





CLR 


R2 




MOV 


#OSTABL, R3 




TST 


0S*SIZ(R3) 




BEQ 


2* 




TST 


0S*FLe(R3) 




BNE 


2* 




CMP 


0S*SIZ(R3),R5 




BHI 


2* 




TST 


R2 




BEQ 


3* 




CMP 


0S*SIZ<R3)-0S 




BLOS 


2* 




MOV 


R3, R2 




ADD 


#0S**SZ,R3 




CMP 


R3, OSLAST 




BLD 


1* 


F 


inished 
CLC 






TST 


R2 




BNE 


9* 




SEC 






MOV 


<SP)+, R3 




RETURN 





Say Mte haven't found any segment yet 

Point to entry for 1st segment 

Is this segment to be loaded? 

Br if not 

Is this segment already over TSINIT? 

Br if yes 

Will this segment fit? 

Br if not 

Have we found any other seg yet? 

Br if not 
[Z<R2) i Is new seg larger than old? 
> Br if not 

i Remember largest segment 
j Point to entry for next segment 
; Have we checked all segments? 
i Loop if not 



i Assume we found a segment 

;Did we find a segment that will fit? 

i Br if yes 

j Signal failure on return 



TSINIT 
GETOVL 



— TSX startup initializ MACRO V05. 04 Monday 14-Dec-87 08:35 Page 71 

— Load system overlay into high memory 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 



025102 



025102 166205 000000 
025106 020527 001600 
025112 103405 



025114 004737 004604' 



025120 004737 025146' 



025124 000207 



025126 
025134 
025142 000137 004216 



. SBTTL GETOVL — Load system overlay into high memory 

GETOVL is called to load a system overlay into high memory. 

Inputs: 
R2 = Pointer to overlay table entry for segment in OSTABL. 
R5 = 64-byte physical memory block number where seg is to be loaded. 

Outputs: 
R5 = Update 64-byte physical memory block pointer for next segment. 

GETOVL: 

Allocate space for the overlay segment 

SUB 0S«SIZ<R2),R5 iAllocate space for overlay 

CMP R5* #1600 i Are we about to run over RT-11? 

BLO 10* ; Br if yes — Insufficient memory 

Remember the base address of some key segments 



CALL KEYSEG 
Load the segment 

CALL LODOVL 
Finished 

RETURN 

Error: Memory overflow 

10*: . PRINT #TSXHD 
. PRINT #TSXSIZ 
JMP INISTP 



; Remember address of some segments 



Load the segment 
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I 
I 

€ 



1 

2 
3 
4 
5 
6 
7 
8 
9 025146 

10 025150 

11 025152 

12 025154 

13 025156 
14 

15 
16 
17 

18 025160 

19 025164 

20 025170 

21 025176 

22 025200 

23 025204 

24 025206 

25 025212 
26 

27 
28 

29 025216 

30 025222 

31 025260 
32 

33 
34 

35 025262 

36 025266 

37 025272 

38 025274 

39 025276 

40 025300 

41 025302 

42 025310 

43 025314 

44 025320 

45 025326 

46 025332 

47 025334 

48 025342 

49 025344 

50 025346 

51 025352 

52 025354 

53 025362 

54 025370 

55 025374 

56 025402 

57 025406 



010146 
010246 
010346 
010446 
010546 



016201 
016103 
016137 
010302 
062702 
000302 
042702 
010561 



013704 
103466 



012701 
012700 
020300 
103001 
010300 
160003 

013746 
010537 
052737 
105737 
001403 
052737 
012421 
077002 
105737 
001403 
042737 
042737 
012637 

062705 
005237 



. SBTTL LODOVL — Read and relocate system overlay 

LODOVL is called to load a system overlay region into memory. 

Inputs: 
R2 = Pointer to OSTABL entry for segment being loaded. 
R5 = 64-byte physical memory block number uihere segment is to be loaded. 



LODOVL: MOV 
MOV 
MOV 
MOV 
MOV 



R1,-<SP) 
R2, -<SP) 
R3, -<SP) 
R4, -(SP) 
R5. -<SP) 



000004 
OOOOOOG 
OOOOOOG 000142' 

000377 

177400 
OOOOOOG 



000152 



Get info about size of the overlay and position within SAV file 

MOV OS*OVL ( R2 ) . R 1 i Get pointer to linker-built segment entry 

MOV 0. SIZ(R1),R3 iGet size of overlay segment <# words) 

MOV 0. BLK<Rl),FILBLK;Get block in SAV file where segment starts 

MOV R3> R2 ; Get total number of words in segment 

ADD #255. > R2 ; round to the nearest number of blocks 

SWAB R2 ; Divide by 256. words per segment 

BIC #177400*R2 ;kill sign extension bits 

MOV R5, 0. PAR<R1) i Remember where segment is being loaded 

Read next block of overlay segment into low-memory buffer 

10$: MOV WRKBUF, R4 } Point to work buffer 

. READW #AREA. #17, R4, #256. , FILBLK i read a block 

BCS 22* ; read error occured 

Move from low buffer to high position in memory 



OOOOOOG 
000400 



?*: 



OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 



OOOOOOG 



11*: 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 12*: 
OOOOOOG 

000010 
000142' 



MOV 


#VPAR5, Rl 


MOV 


#256. , RO 


CMP 


R3, RO 


BHIS 


2* 


MOV 


R3, RO 


SUB 


RO, R3 


DISABL 




MOV 


@#KPAR5, -<SP) 


MOV 


R5, e#KPAR5 


BIS 


#MMENBL, e#SROMMR 


TSTB 


MEM256 


BEQ 


11* 


BIS 


#EMMAP. e#SR3MMR 


MOV 


<R4)+, <R1)+ 


SOB 


RO, 11* 


TSTB 


MEM256 


BEQ 


12* 


BIC 


#EMMAP, @#SR3MMR 


BIC 


#MMENBL, e#SROMMR 


MOV 


(SP)+, @#KPAR5 


ENABL 




ADD 


#10, R5 


INC 


FILBLK 



get the virtu 
obtain the nu 
Do we need to 
Br if yes 
Get number of 
Get number of 
#« Disable in 
save the cont 
change the ma 
enable memory 
Does machine 
Br if not 
enable extend 
move into hig 



al address of the mapped region 
mber of words to move 
move as many as 256 words? 

words to move for last block 
words left after this move 

terrupts ** 

ents of the mapping register 

pping register 
management 

have at least 256Kb of memory? 

ed memory addressing 
h memory 



Does this machine have at least 256Kb? 

Br if not 

disable extended memory management 

disable memory management 

restore the mapping register 

** Enable interrupts ** 

advance 64-byte block # by 512-bytes 

increment file block # 
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58 025412 

59 025414 

60 025416 
61 

62 
63 

64 025422 

65 025424 

66 025426 

67 025430 

68 025432 

69 025434 
70 

71 
72 

73 025436 

74 025444 

75 025452 



005302 
001402 
000137 



012605 
012604 
012603 
012602 
012601 
000207 



025216' 



DEC 


R2 


BEQ 


5* 


JMP 


10* 



i More to be copied? 

i Br if not 

; Read and copy rest of mapped segment 



Finished loading the segment 



5*: 



MOV 


<SP)+, R5 


MOV 


(SP)+, R4 


MOV 


(SP)+, R3 


MOV 


(SP)+, R2 


MOV 


(SP)+,R1 


RETURN 





000137 004216' 



Error occurred on read 

i: PRINT #TSXHD 

.PRINT #RDERR 
JMP INISTP 



i Print heading 

i Read error 

iAbort initialization 



I 
I 



i 
i 
i 
i 
i 
i 
i 



I 
I 



TSINIT 
GETSRT 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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025456 010146 

025460 010246 

025462 010346 

025464 010446 



025466 021127 OOOOOOG 
025472 001540 



025474 
025512 



103010 



025514 105737 

025520 001132 

025522 005061 

025526 005061 

025532 000520 



OOOOOOG 

OOOOOOG 
000002G 



025534 116102 OOOOOOG 

025540 042702 177400 

025544 160200 

025546 010561 OOOOOOG 

025552 010003 

025554 072027 000003 

025560 160005 

025562 020527 001600 

025566 103530 

025570 010561 OOOOOOG 



025574 
025576 
025602 



010546 
013704 



000152' 



025636 012701 OOOOOOG 
025642 010537 OOOOOOG 



. SBTTL GETSRT — Load any shared run-time systems 

GETSRT is called to load into memory a shared run-time system. 
Shared run-time systems are loaded into the top of memory. 

Inputs: 
Rl = Pointer to shared run-time descriptor block. 
R5 = 64-byte block number of top of free memory. 

Outputs: 
R5 = New top of memory block number 



GETSRT: MOV 
MOV 
MOV 
MOV 



R1,-(SP) 
R2, -<SP) 
R3, -<SP) 
R4. -<SP) 



See if this is a dummy run-time entry to allow for patching 



CMP (R1),#DMYDEV 
BEQ 7* 



Dummy run-time entry? 
Br if yes 



Try to open a channel to run-time file 



. LOOKUP #AREA, #1,R1 
BCC 8* 



;OPEN CHANNEL TO RUN-TIME FILE 
* BR IF OPEN WAS SUCCESSFUL 



Cannot open shared run-time file. 
See if he wants to abort or continue. 



TSTB VINABT 

BNE 9* 

CLR RT«NAM(R1) 

CLR RT*NAM+2(R1) 

BR 7* 



; ABORT OR CONTINUE 

i BR IF ABORT WANTED 

iMark run-time as not-available 



i GO LOAD NEXT RUN-TIME SYSTEM 
Set up information about position of run-time in physical memory 



8*: 



MOVB RT*SKP<R1>,R2 

BIC #-^0377, R2 

SUB R2, RO 

MOV R5, RT*T0P<R1) 

MOV RO, R3 

ASH #3, RO 

SUB RO, R5 

CMP R 5, #1600 

BLO 11* 

MOV R5, RT«BAS(R1) 



GET # BLOCKS TO SKIP AT FRONT OF RUN-TIME 

CLEAR SIGN EXTENSION 

GET # BLOCKS TO READ (LOOKUP SET RO W SIZE) 

SET 64-BYTE BLOCK # ABOVE TOP OF RUN-TIME 

GET # 512-BYTE BLOCKS IN RUN-TIME 

CONVERT TO # 64-BYTE BLOCKS 

CALCULATE BASE 64-BYTE BLOCK # OF RUN-TIME 

ARE WE ABOUT TO RUN OVER RT-ll'? 

BR IF YES 

SET BASE 64-BYTE BLOCK # OF RUN-TIME 



Read run-time system into memory and position in high-memory 

MOV R5, -(SP) /Save address of bottom of run-time 
4*: MOV WRKBUF, R4 i Point to work buffer 

. READW #AREA, #1,R4, #256. ,R2 j READ A BLOCK OF RUN-TIME FILE 
i Use memory management to access high-memory area. 

MOV #VPAR6, Rl J GET VIRTUAL ADDRESS OF PAR6 ADDRESS REGION 

MOV R5, 0#UPAR6 i SET USER-MODE PAR6 MAP OFFSET VALUE 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
60 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
SO 
81 
82 
S3 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 



025646 
025654 
025662 
025666 
025674 
025702 
025706 
025710 
025716 
025720 
025722 
025724 
025730 
025732 
025740 
025746 
025754 
025760 
025762 



025764 
025766 



025774 
025776 
026000 
026002 
026004 



026006 
026014 
026022 
026026 
026030 
026034 
026036 
026044 



026050 
026056 
026064 



012737 
052737 
012700 

052737 
105737 
001403 
052737 
012446 
106621 
077003 
105737 
001403 
042737 
042737 

062705 
005202 
077373 



012605 



012604 
012603 
012602 
012601 
000207 



2: 

012100 
004737 
077204 



077406 OOOOOOG 

ooooooe OOOOOOG 

000400 

OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 



3*: 



OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 31*: 

000010 



MOV 


#077406, e#UPDR6 j 


BIS 


#UPMODE, e#PSW ; 


MOV 


#256. , RO i 


DISABL 




BIS 


#MMENBL, e#SROMMRi 


TSTB 


MEM256 ; 


BEQ 


3* i 


BIS 


#EMMAP, e#SR3MMR ; 


MOV 


<R4)+, -(SP) i 


MTPD 


(Rl) + 


SOB 


RO, 3* 


TSTB 


MEM256 i 


BEQ 


31* i 


BIC 


#EMMAP, €#SR3MMR ; 


BIG 


#MMENBL, e#SROMMR; 


ENABL 




ADD 


#10, R5 i 


INC 


R2 } 


SOB 


R3, 4* i 



SET PDR TO ALLOW FULL ACCESS TO PAGE 

SET PREVIOUS-MODE = USER FOR MTPD ACCESS 

GET # WORDS TO MOVE 

«* Disable interrupts ** 

enable memory management 

DOES THIS MACHINE HAVE AT LEAST 256KB? 

BR IF NOT 

enable extended memory addressing 

TRANSFER DATA FROM BUFFER TO HIGH MEMORY 



DOES THIS MACHINE HAVE AT LEAST 256KB? 

BR IF NOT 

DISABLE EXTENDED MEMORY MANAGEMENT 

DISABLE MEMORY MANAGEMENT 

*« Enable interrupts ** 

ADVANCE 64-BYTE BLOCK # BY 512-BYTES 

INC FILE BLOCK # 

READ AND COPY REST OF FILE 



Finished loading the run-time system. 

MOV (SP)+, R5 
. CLOSE #1 



Finished 



7*: 



MOV 
MOV 
MOV 
MOV 
RETURN 



(SP>+, R4 
<SP)+, R3 
<SP)+, R2 
(SP)+,R1 



Error 



Cannot find run-time system file 



9*: 



000004 
030012' 



000137 004216' 



.PRINT #TSXHD 

. PRINT #COSRT 

MOV #4, R2 

10*: MOV <R1)+, RO 

CALL PRTR50 

SOB R2, 10* 

.PRINT #CRLF 

JMP INISTP 



PRINT MESSAGE HEADING 
PRINT ERROR MESSAGE 
PRINT 4 RAD 50 VALUES 
GET PART OF NAME 
PRINT RAD50 VALUE 

} END LINE 

J ABORT INITIALIZATION 



Error — Insufficient memory space to load run-time systems 



000137 004216' 



11*: .PRINT #TSXHD 
.PRINT #SRTOVF 
JMP INISTP 



PRINT HEADING 
PRINT ERROR MESSAGE 
ABORT INITIALIZATION 



I 

i 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



. SBTTL CSHBUF — Allocate space for data cache tables 
Allocate space for data cache blocks and control tables. 



Inputs: 
R4 = 64-byte block number of base of free memory. 
R5 = 64-byte block number of top of free memory. 

Outputs: 
R5 = Updated 64-byte block number of top of free memory. 



026070 
026072 



010246 
010346 



CSHBUF: MOV 
MOV 



026074 013737 0000000 0000000 
026102 013702 0000000 
026106 001464 



026110 062702 000037 
026114 072227 177773 



026120 013703 0000000 

026124 072327 000003 

026130 012700 000010 

026134 060203 

026136 077002 

026140 010337 OOOOOOG 



026144 
026146 
026150 
026152 



010500 
160400 
020300 
103045 



026 1 54 01 3700 OOOOOOG 

026160 072027 000003 

026164 160005 

026166 010537 OOOOOOG 



026172 160205 

026174 010537 OOOOOOG 

026200 160205 

026202 010537 OOOOOOG 

026206 160205 

026210 010537 OOOOOOG 

026214 160205 



R2, -<SP) 
R3, -(SP) 



See if data caching is wanted 



MOV CSHALC, VCSHNB 
MOV CSHALC, R2 
BEQ 9* 



i Set # blocks in use = # blocks allocated 
iDid used request data caching? 
i Br if not 



Calculate number of 64-byte blocks needed for each cache control table 



ADD 
ASH 



#31. ,R2 
#-5. , R2 



i Bound up to 32 uiord block 
{Convert to # 64-byte blocks 



Compute total space that uiill be used by all cache data 



1*; 



MOV CSHALC, R3 

ASH #3. R3 

MOV #8. , RO 

ADD R2, R3 

SOB RO, 1* 

MOV R3, CSHSIZ 



j Get # blocks in cache 

j Get # 64-byte blks used by cache data buffers 
i Get number of cache control tables 
{Accumulate total space needed 



{Save total space used by cache data 
See if there is enough memory space available for the specified cache 



MOV 


R5, RO 


SUB 


R4, RO 


CMP 


R3, RO 


BHIS 


10* 



{Get top of memory address 
{Compute # free 64-byte blocks 
{ Is there enough total space? 



i Br if not 
Allocate space for cache data buffers 



MOV 
ASH 
SUB 
MOV 



CSHALC. RO 
#3, RO 
R0>R5 
R5, CSHBFP 



{Get # blocks in data cache 

{Get # 64-byte blocks needed for allocation 
{Allocate space for cache data buffers 
{Save pointer to base of buffer area 



Allocate space for each control table 



SUB 
MOV 
SUB 
MOV 
SUB 
MOV 
SUB 



R2iR5 

R5, CA*BLK 

R2, R5 

R5, CA*DVU 

R2, R5 

R5, CA*WCT 

R2, R5 



{Allocate space for table 

{Block number associated uiith entry 

{Allocate space for table 

{Device and unit number 

{Allocate space for table 

{Number of words 

{Allocate space for table 
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5a 026216 

59 026222 

60 026224 

61 026230 

62 026232 

63 026236 

64 026240 

65 026244 

66 026246 

67 026252 

68 026256 
69 

70 
71 

72 026260 

73 026262 

74 026264 
75 

76 
77 

78 026266 

79 026274 
SO 026302 



010537 
160205 
010537 
160205 
010537 
160205 
010537 
160205 
010537 
020527 
101403 



012603 
012602 
000207 



OOOOOOG 
OOOOOOG 

ooooooe 

OOOOOOG 

OOOOOOG 
001600 



9*: 





MOV 


R5, CA*UFL 




SUB 


R2, R5 




MOV 


R5, CA*UBL 




SUB 


R2, R5 




MOV 


R5, CA*HFL 




SUB 


R2, R5 




MOV 


R5, CA*HBL 




SUB 


R2, R5 




MOV 


R5, CA*HSH 




CMP 


R5, #1600 




BLOS 


10* 


F 


inished 






MOV 


<SP)+, R3 




MOV 


<SP)+, R2 




RETURN 





LRU ch 
Al loca 
LRU ch 
Al loca 
Hash c 
Al loca 
Hash c 
Al loca 
Hash c 
Did we 
Br if 



ain 
te s 
ain 
te s 
hain 
te s 
hain 
te 5 
hain 
run 
yes 



forward 1 
pace for 
bac kuiard 
pace for 

forward 
pace for 

backward 
pace for 

list hea 

over RT- 



ink 
table 
link 
table 
link 
table 
link 
table 
ds 
11? 



Insufficent memory space available for cache data 



000137 004216' 



10*: . PRINT #TSXHD 
.PRINT #CSHOVF 
JMP INISTP 



; Print heading 

i Overlow message 

iAbort the initialization 





TSINIT - 


— TSX s 


tartup initiali 




CSHBUF - 


— Allocate space for d 




1 
2 










3 










4 










5 










6 










7 










8 










9 










10 










11 










12 










13 


026306 


010146 






14 


026310 


010246 






15 


026312 


010346 






16 


026314 


010446 






17 










18 










19 










20 


026316 








21 


026336 


103010 






22 


026340 






) 


23 


026346 








24 
25 
26 


026354 


000137 


004216 




27 










28 


026360 


062705 


000310 




29 


026364 


010500 




I 


30 


026366 


062700 


001000 


1 


31 


026372 


004737 


027622 




32 


026376 








33 


026432 


103002 






34 


026434 


000137 


027016 




35 


026440 


016502 


000052 




36 


026444 


010203 






37 


026446 


060503 






38 


026450 


010300 






39 


026452 


004737 


027622 




40 


026456 


000241 






41 


026460 


006002 






42 








t 


43 


026462 


016500 


000040 


1 


44 


026466 


162700 


001000 


1 < 


45 


026472 


060500 




1 


46 


026474 


010037 


000300 


1 


47 


026500 


016501 


000062 


1 i 


48 
49 
50 










51 


026504 








52 


026540 


103526 






53 










54 
55 
56 










57 



















. IF EQ.PROCID ; Don't allouj ODT for production PRO verBion 
. SBTTL GETODT — Load ODT 

GETODT is called to load ODT into memory above TSX and transfer control 
to it. On return, ODT has been started. 

Inputs: 
R5 = Address uihere ODT is to be loaded. 

Outputs: 
R5 = Address above top of ODT. 

GETODT: 



MOV 


R1,-<SP) 


MOV 


R2, -<SP> 


MOV 


R3i -(SP) 


MOV 


R4, -<SP) 



Try to lookup ODT rel file. 

-LOOKUP #AREA, #1,#0DTBLK i LOOKUP ODT REL FILE 
BCC 1* iBR IF FOUND IT 

.PRINT #TSXHD i CAN'T FIND ODT 

.PRINT #NOODT 
JMP INISTP ; ABORT INITIALIZATION 

Read first block of ODT file and determine size of ODT. 



1$: 



J*: 



ADD 

MOV 

ADD 

CALL 

. READW 

BCC 

JMP 

MOV 

MOV 

ADD 

MOV 

CALL 

CLC 

ROR 



#200. . R5 

R5, RO 

#512. ,R0 

CHKMEM 

#AREA, #1, R5, #256. , #0 



; RESERVE SPACE FOR ODT STACK 

; CHECK MEMORY ADDRESS FOR OVERFLOW 



2« 

ODTRDX 
RSZ<R5),R2 
R2, R3 
R5. R3 
R3, RO 
CHKMEM 

R2 



Get starting address of ODT 
MOV STA(R5),R0 
SUB #ODTBAS/ RO 

ADD R5> RO 

MOV RO, ODTSTA 

MOV RBD(R5),R1 

Read in ODT rel file image. 



READW #AREA, #1,R5, R2, #1 



Br if no read error 

Read error 

GET SIZE OF ODT 

GET ADDRESS ABOVE TOP OF ODT 
CHECK MEMORY ADDRESS FOR OVERFLOW 



iGET # WORDS IN ODT 

i GET OFFSET TO START ADDRESS 

; CALCULATE ABSOLUTE STARTING ADDRESS 

; THIS IS REAL STARTING ADDRESS 

i GET # OF BLOCK WITH RELOCATION INFO 



BCS 



ODTRDX 



iBR IF READ ERROR 



Relocate addresses in ODT. 

R5 = Address of base of ODT; R3 = Address above top of ODT. 

Rl = Block number in rel file of start of relocation info. 



TSINIT - 


— TSX s 


tartup initializ MACRO 


GETODT - 


— Load 


ODT 




58 


026542 


010337 


000036 ' 


59 


026546 


010337 


000274 ' 


« 60 








61 








62 








< 63 








64 


026552 


013737 


000152' 000274 


65 


026560 


013737 


000274' 000276 


< 66 


026566 


062737 


002000 000276 


67 


026574 


010504 




6S 


026576 


162704 


001000 


t 69 








70 


026602 






71 


026640 


103003 




< 72 


026642 


105737 


000052 


73 


026646 


001063 




74 








1 75 


026650 


013702 


000274 ' 


76 


026654 


012203 




77 


026656 


020327 


177776 


1 78 


026662 


001416 




79 


026664 


012200 




80 


026666 


006303 




1 81 


026670 


103002 




82 


026672 


160400 




S3 


026674 


000401 




1 84 


026676 


060400 




85 


026700 


060503 




86 


026702 


010013 




1 87 


026704 


020237 


000276 ' 


88 


026710 


103761 




89 


026712 


062701 


000002 


< 90 


026716 


000731 




91 








92 








( 93 








94 








95 


026720 






i 96 








97 








98 








1 99 








100 








101 








i 102 








103 








104 








( 105 








106 








107 








< 108 








109 








110 








i 111 








112 


026726 


012700 


000000 ' 


113 


026732 


012701 


OOOOOOG 


< 114 


026736 


012702 


OOOOOOG 
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RELFIL: MOV R3, ODTTOP 

MOV R3, RLBF 
. IF NE, PROCID 

TSTB PROFLG 

BNE 1* 
. ENDC ;NE, PROCID 

MOV WRKBUF, RLBF 
1*: MOV RLBF, RLBFND 

ADD #1024. , RLBFND 

MOV R5, R4 

SUB #ODTBAS, R4 
i Read in relocation address 
4«: . READW #AREA, #1, RLBF, 

BCC 7* 

TSTB e#52 

BNE ODTRDX 
i Relocate some addresses in 
7*: 
3*: 



5*: 
6*: 



MOV 


RLBF, R2 


MOV 


<R2)+, R3 


CMP 


R3, #-2 


BEQ 


9* 


MOV 


<R2)+, RO 


ASL 


R3 


BCC 


5* 


SUB 


R4, RO 


BR 


6* 


ADD 


R4, RO 


ADD 


R5, R3 


MOV 


RO, @R3 


CMP 


R2, RLBFND 


BLO 


3* 


ADD 


«2, Rl 


BR 


4* 



iSAVE ADDRESS ABOVE TOP OF ODT 

iOnly if PRO protection code is included 
; Are we running on a Pro? 
i Br if yes 

;READ RELOCATION INFO HERE 

;GET ADDRESS OF END OF BUFFER AREA 

jGET BASE ADDRESS OF ODT 

i SUBTRACT LINK BASE ADDRESS 
list. 
#512. ,R1 

i BR IF NO READ ERROR 

;END OF FILE IS OK 

; BR IF READ ERROR 
ODT. 

; POINT TO RELOCATION INFO 

;GET ADDRESS OF LOCATION TO RELOCATE 

;TIME TO STOP? 

; BR IF FINISHED 

i GET VALUE TO RELOCATE 

i CVT TO BYTE ADDRESS 

;BR IF ADDITIVE RELOCATION 

i RELOCATE THE ADDRESS 



RELOCATE THE ADDRESS 

GET LOCATION WHERE WORD GOES 

STORE RELOCATED ADDRESS 

TIME TO READ NEXT BUFFER FULL? 

BR IF NOT 

ADVANCE BLOCK # 

GO READ NEXT BUFFER FULL 



Finished relocation. 
Close ODT rel file. 

9*: . CLOSE #1 

Direct interrupts to 60 and 64 to an RTI instruction 



MOV #DORTI, e#60 
MOV #D0RTI.e#64 



; Catch interrupt 60 
j Catch interrupt 64 



Load registers with the following values for initial entry to ODT: 
RO = Base of TSINIT 

Rl = Important breakpoint <''R) in TSX 
R2 = Base of TSGEN 
R3 = Base of TSEXEC 
R4 = Base of TSEMT 

R5 = Return address to start execution 
0(SP) == Address of mapsys routine 
2<SP) = Address of sysmap cell 



MOV 
MOV 
MOV 



#TSINIT, RO 
#BRKPT, Rl 



TSINIT - 


— TSX s 


tartup initializ 


GETODT - 


-- Load 


DDT 




115 


026742 


012703 


OOOOOOG 


116 


026746 


012704 


OOOOOOG 


117 


026752 


012746 


OOOOOOG 


118 


026756 


012746 


OOOOOOG 


119 


026762 


012705 


026772 ' 


120 








121 








122 








123 


026766 


000177 


151306 


124 








125 








126 








127 








128 


026772 


013737 


000014 


129 


027000 


013705 


000036 ' 


130 


027004 


012604 




131 


027006 


012603 




132 


027010 


012602 




133 


027012 


012601 




134 


027014 


000207 




135 








136 








137 








138 


027016 






139 


027024 






140 


027032 


000137 


004216' 


141 








142 








143 








144 


027036 


000002 




145 









MACRO 



V05. 


04 


Monday 

MOV 
MOV 
MOV 
MOV 
MOV 


14- 


-Dec-87 08: 35 

#TSEXEC, R3 
#TSEMT, R4 
#SYSMAP. -(SP) 
#MAPSYS, -(SP) 
#10*. R5 




Ent 


-er ODT 










JMP 




€ODTSTA 



Page 75-2 



PASS ADDRESS OF SYSMAP CELL TO ODT 
PASS ADDRESS OF MAPSYS ROUTINE 
ADDRESS FOR ODT TO RETURN TO 



JUMP TO START OF ODT 



Return from ODT. 

Continue initialization of TSX. 



OOOOOOG 10*: 



MOV 


@#14, ODTTRP 


MOV 


ODTTOP, R5 


MOV 


(SP>+, R4 


MOV 


(SP)+, R3 


MOV 


<SP)+, R2 


MOV 


(SP)+, Rl 


RETURN 





SAVE ODT BREAKPOINT ENTRY ADDRESS 
ADDRESS ABOVE TOP OF ODT 



Error while reading ODT rel file. 

i PRINT ERROR MESSAGE 
i ABORT INITIALIZATION 

RTI instruction to disable interrupts 



ODTRDX: .PRINT #TSXHD 
.PRINT #ODTRDM 
JMP INISTP 



DORTI: 



RTI 
. ENDC 



iEQ, PROCID 



TSINIT 
OPNCHN 



I 
I 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
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Open a TSX-Plus channel 

. SBTTL OPNCHN — Open a TSX-Plus channel 



OPNCHN is called to set up information in a TSX-Plus channel block 
to make it look as if the channel has been opened to a specified 
device with a . ENTER. 



Inputs: 
RO = Address of channel block to be opened. 
R2 = Rad50 device name. 



027040 010146 
027042 010346 
027044 010003 



027046 010301 

027050 012700 OOOOOOC 

027054 005021 

027056 077002 

027060 012763 OOOOOOC OOOOOOG 



027066 010200 

027070 004737 012632' 

027074 103411 

027076 010001 

027100 000301 

027102 110163 OOOOOOG 

027106 042700 OOOOOOC 

027112 050063 OOOOOOG 



Outputs: 
C-flag set == 

OPNCHN: MOV 
MOV 
MOV 



Cannot open the device. 



R1,-(SP) 
R3, -(SP) 
RO, R3 



Carry channel block address in R3 



Initialize the channel block 



2*: 



; Point to the channel block 
; Get # words to zero 
i Zero the channel block 



MOV R3, Rl 

MOV #<CHNSIZ/2>, RO 

CLR (Rl)+ 

SOB RO, 2* 

MOV #<CS*OPN.'CS*ENT>, C. CSW<R3) i Initialize CSW to say chan open 



Convert the device name into device # and unit # 



027116 000241 



027120 012603 
027122 012601 
027124 000207 



9*: 



MOV 


R2, RO 


CALL 


CVTDVU 


BCS 


9* 


MOV 


RO, Rl 


SWAB 


Rl 


MOVE 


R1,C. DEVQ<R3) 


BIC 


#-^C<CS*NMX>, RO 


BIS 


RO, C. CSW<R3) 


Success 




CLC 




Finished 




MOV 


<SP)+, R3 


MOV 


(SP)+, Rl 


RETURN 





Get the full device name 

Convert to dev # and unit # 

Br if u»e don't recognize the device name 

Get index # and unit # 

Get unit # to low byte 

Set unit # in channel block 

Clear all but device index number in RO 

Store device index # into CSW 



Signal success on return 
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SETCHN — Copy RT-11 channel information into TSX system chan 



c 
t 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 

18 027126 

19 027130 

20 027132 

21 027134 
22 

23 
24 
25 027136 

27 
28 
29 

30 027154 

31 027156 

32 027162 

33 027202 

34 027204 

35 027222 

36 027226 

37 027232 

38 027234 

39 027240 

40 027242 

41 027244 

42 027250 
43 

44 
45 

46 027252 

47 027254 

48 027256 

49 027260 
50 

51 
52 

53 027262 

54 027270 

55 027276 

56 027300 

57 027304 



010146 
010246 
010346 
010001 



011103 
042703 

060003 

013703 
020063 
001404 
162703 
002372 
000407 
042711 
050311 



012603 
012602 
012601 
000207 



010200 
004737 



. SBTTL SETCHN — Copy RT-11 channel information into TSX system chan 

SETCHN is called to set up a TSX system channel block to access a file 
that has been opened using RT-11. The device index number is converted 
from the RT-11 device number to the corresponding TSX device number. 
Note: the channel must have been opened with a . lookup (not . enter) 
to use this routine. 

Inputs: 
Channel # 1 = Open to file of interest. 

RO = Address of TSX channel block which is to be set up. 
R2 = Rad-50 device name. 

Outputs: 
Channel block pointed to by RO is set up for future TSX I/O. 
Channel # 1 is closed. 



SETCHN: MOV 
MOV 
MOV 
MOV 



R1,-<SP) 
R2, -(SP) 
R3, -<SP) 
RO, Rl 



177701 



OOOOOOG 
0000000 

000002 



000076 



1*: 



2*: 



;GET ADDRESS OF TSX CHANNEL BLOCK 

Do . SAVESTATUS to store channel information into TSX channel block. 

. SAVEST #AREA, #1,R1 ; STORE CHANNEL STATUS INTO TSX CHANNEL BLOCK 

Now convert RT-11 device table index number into corresponding TSX 
device table index number. 

GET CSW FOR CHANNEL 

GET RT-11 DEVICE INDEX NUMBER 

GET RT-11 OFFSET TO PNAME TABLE 

GET ADDRESS OF NAME OF DEVICE IN PNAME TABLE 

GET NAME OF DEVICE FROM RT-11 

GET INDEX # FOR LAST TSX DEVICE 

LOOK FOR DEVICE IN OUR TABLES 

BR IF FOUND 

CHECK NEXT ENTRY 

BR IF MORE TO CHECK 

VERY STRANGE THAT WE DIDN'T FIND IT 

CLEAR OUT RT-11 DEVICE # 

STORE TSX DEVICE # 



MOV 


<R1),R3 


BIC 


#-^C76, R3 


. GVAL 


#AREA» #404 


ADD 


RO, R3 


. GVAL 


#AREA, R3 


MOV 


NUMDEV, R3 


CMP 


RO. PNAME (R3) 


BEQ 


2* 


SUB 


#2, R3 


BGE 


1* 


BR 


MTSXDV 


BIC 


#76, <R1) 


BIS 


R3, (Rl) 


Finished 




MOV 


<SP)+, R3 


MOV 


(SP)+, R2 


MOV 


(SP)+,R1 


RETURN 





Error: Could not locate Rt-11 device number in TSX device table. 



030012' 



MTSXDV: . PRINT #TSXHD 

. PRINT ttREQMIS 

MOV R2, RO 

CALL PRTR50 

. PRINT #CRLF 



PRINT ERROR MESSAGE 
Missing a required device 
GET RAD50 DEVICE NAME 
DISPLAY DEVICE NAME 
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SETCHN — Copy RT-11 channel information into TSX system chan 

58 027312 000137 004216' JMP INISTP ; ABORT INITIALIZATION 



I 
I 
I 



010146 
010246 



SETSY: 



010037 0000000 



TSINIT — TSX startup initiaiiz MACRO V05. 04 
SETSY — Set up information about SY device 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 

14 027316 

15 027320 
16 

17 
18 

19 027322 

20 027342 
21 

22 
23 

24 027346 

25 027366 

26 027370 

27 027410 

28 027412 

29 027430 

30 027434 

31 027440 

32 027442 

33 027446 

34 027450 

35 027452 

36 027454 
37 

38 
39 

40 027460 

41 027464 

42 027470 

43 027474 
44 

45 
46 

47 027500 

48 027502 

49 027504 
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. SBTTL SETSY 



Set up information about SY device 



SETSY is called to set up information about the SY device. 

It does this by determining what device RT-11 recognizes as SY. 

Inputs: 
R5 = Address of base of free memory area 

Outputs: 
SYNAME = RAD50 spec for physical system disk 
SYINDX = TSX device table index for SY device 
SYUNIT = SY device unit number 



MOV 
MOV 



R 1 , - < SP ) 
R2, -<SP> 



Set up system device unit number 



. OVAL 
MOV 



#AREA, #274 
RO, SYUNIT 



; Get system unit # from RT-11 (high byte) 
i Set system unit number 



Set up system device index number 



010002 

060002 

013701 
020061 
001405 
162701 
002372 
010002 
000703 
010137 



1 1 3702 
062702 
066102 
010237 



012602 
012601 
000207 



0000000 
OOOOOOG 

000002 



OOOOOOG 



00000 IG 
000036 
OOOOOOG 
OOOOOOG 



1*: 



>*: 



. GVAL 


#AREA, #364 


MOV 


RO. R2 


. GVAL 


#AREA, #404 


ADD 


RO, R2 


. GVAL 


#AREA, R2 


MOV 


NUMDEV, Rl 


CMP 


RO, PNAME(Rl) 


BEG 


2$ 


SUB 


#2, Rl 


BGE 


1* 


MOV 


RO, R2 


BR 


MTSXDV 


MOV 


Rl, SYINDX 



Set up RAD50 name of SY disk 



MOVE 


SYUNIT+1,R2 


ADD 


#36, R2 


ADD 


PNAME(R1),R2 


MOV 


R2, SYNAME 


Finished 




MOV 


(SP)+, R2 


MOV 


(SP)+,R1 


RETURN 





Get RT-11 system device index number 

Save device index number 

Get offset within RMON of PNAME table 

Get offset to name of SY device 

Get name of RT-11 system device 

Get index to last TSX-Plus device entry 

Search for device in TSX tables 

Br if found it 

Keep looking if more 

; Save name of system device 

jMissing device error 

i Store index # of TSX-Plus system device 



GET SYSTEM UNIT NUMBER 

PUT IN "0" AS 3'RD CHARACTER OF NAME 

ADD DEVICE NAME 

THIS IS THE FULL SY DISK NAME 



TSINIT - 
RTFTCH - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



— TSX startup initiaiiz 

— Fetch a RT-il device 
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hand ler 



027506 010046 
027510 010246 
027512 010546 



027514 010037 000130' 



027520 

027532 103425 



027534 005737 000116' 
027540 001021 



027542 
027546 
027552 
027556 



013702 
013700 
020037 
101405 



000152 
000114 
000154 



027560 
027562 
027566 
027570 



027572 
027602 



060500 
020037 
101013 
010502 



000132 



103401 



. SBTTL RTFTCH — Fetch a RT-1 1 device handler 



RTFTCH is called to fetch an RT-11 device handler. 

If the handler is already resident/ nothing is done. 

If the handler will fit in WRKBUF, it is fetched into there. 

If the handler will not fit in WRKBUF, it is fetched into the top 

of memory. 



Inputs: 
RO = RAD50 device name. 
R5 = Address of start of free memory. 

Outputs: 
C-flag cleared ==:> Fetch was successful. 
C-flag set ==> Error on fetch. 



RTFTCH: MOV 
MOV 
MOV 



RO, -<SP) 
R2, -<SP) 
R5, -<SP> 



Set the name of the device being fetched 

MOV RO, FETDEV ; Set name of device whose handler to fetch 

Do a . DSTAT to get information about the handler 

. DSTAT #DSTBLK, #FETDEV i Get information about the device handler 
BCS 9* ; Br if device not recognized 

Determine if the handler is currently resident 



TST 
BNE 



DSTBLK+4 
8* 



i Is the handler resident now? 
i Br if yes 



The handler is not currently resident. 
See if it will fit in WRKBUF. 



MOV 


WRKBUF, R2 


MOV 


DSTBLK+2, RO 


CMP 


RO, WRKSIZ 


BLOS 


1* 



J Set address where handler will be loaded 

i Get the size of the handler 

iWill handler fit in WRKBUF? 

iBr if handler will fit in WRKBUF 



Handler will not fit in WRKBUF. 

See if there is room to load it into the top of memory. 



ADD 




R5, RO 


CMP 




RO, TOPMEM 


BHI 




10* 


MOV 




R5, R2 


i Fetch the 


h 


andler 



1*: .FETCH R2, #FETDEV 
BCS 9* 



J Get address above top of area needed 

i Is there room for handler? 

iBr if not 

; Set address where handler is to be loaded 



i Try to fetch the handler 
iBr if error on fetch 



We successfully fetched the handler 
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58 027604 000241 

59 

60 

61 

62 027606 012605 

63 027610 012602 

64 027612 012600 

65 027614 000207 
66 

67 
68 
69 027616 004737 027642' 



8*: CLC 
Fini shed 
9*: 



Signal success on return 



MOV 
MOV 
MOV 
RETURN 



<SP)+, R5 
(SP)+, R2 
(SP)+, RO 



Insufficient memory available to load the handler 
10*: CALL SIZERR ; Generated system is too big 



abort 



i 
f 

€ 
i 
i 

i 
i 
i 
i 
i 
i 

I 

i 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 



. SBTTL CHKMEM — Check for memory space overfloui 



027622 020037 000302 ' 

027626 103402 

027630 004737 027642 ' 

027634 004737 027662 ' 

027640 000207 



027642 
027650 
027656 000137 004216' 



027662 
027666 
027670 
027674 



005737 
001402 
000137 
000207 



000040 ' 



004216 



CHKMEM is called to make sure uie have not overflowed the available memory 

space while allocating space for TSX. 

If a memory overflow occurs* an error message is printed and 

the initialization is aborted. 



Inputs: 
RO = Address to be tested for validity. 



CHKMEM: CMP 
BLO 
CALL 

1*: CALL 

RETURN 



RO, MEMUM 
1* 

SIZERR 
CCATST 



IS THE ADDRESS OK? 

BR IF OK 

Generated system is too big — abort 

CHECK FOR 'X ABORT REQUEST 



Generated system is too big. Abort the initialization. 



SIZERR: . PRINT #TSXHD 
.PRINT #TOOBIG 
JMP INISTP 



PRINT MESSAGE HEADING 
PRINT ERROR MESSAGE 
ABORT INITIALIZATION 



Check for control-C and abort initialization if requested. 



CCATST: TST CCAFLG 

BEQ 1« 

JMP INISTP 

1*: RETURN 



DID USER REQUEST '^C ABORT? 

BRANCH IF NOT 

ELSE ABORT INITIALIZATION 



TSINIT - 


— TSX s 


tartup initial! 


PRTOCT - 


™ Print 


octal value 


1 
2 








3 








4 








5 








6 








7 








S 


027676 


010146 




9 


027700 


010246 




10 


027702 


010001 




11 


027704 


012702 


000006 


12 


027710 


005000 




13 


027712 


073027 


000001 


14 


027716 


000403 




15 


027720 


005000 




16 


027722 


073027 


000003 


17 


027726 


062700 


000060 


18 


027732 






19 


027736 


077210 




20 


027740 


012602 




21 


027742 


012601 




22 


027744 


000207 
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. SBTTL PRTOCT — Print octal value 
PRTOCT is called to print an octal value without trailing Cr-Lf. 



Inputs: 



RO 
PRTOCT: 



value to be printed. 



1«: 
2*: 



MOV 

MOV 

MOV 

MOV 

CLR 

ASHC 

BR 

CLR 

ASHC 

ADD 

. TTYOUT 

SOB 

MOV 

MOV 

RETURN 



Rl, -(SP) 

R2. -<SP) 

RO, Rl 

#6, R2 

RO 

#1,R0 

2$ 

RO 

#3, RO 

#'OiRO 

R2, 1$ 
(SP)+, R2 
<SP)+,R1 



iOET VALUE TO PRINT 
; PRINT 6 DIGITS 

iGET 1ST OCTAL DIGIT (1 BIT) 

; INITIALIZE FOR SHIFT 

; SHIFT AN OCTAL DIGIT INTO RO 

; CONVERT TO ASCII CHARACTER 

; PRINT THE CHARACTER 

iLOOP AND PRINT MORE DIGITS 



I 

I 





TSINIT - 


— TSX s 


tartup initial! 




PRTDEC - 


— Print 


decimal 


value 




1 
2 










3 










4 










5 










6 










7 










S 










9 


027746 


010146 






10 


027750 


005046 






11 










12 










13 










14 


027752 


010001 






15 


027754 


005000 






16 


027756 


071027 


000012 




17 


027762 


062701 


000060 




18 


027766 


010146 






19 


027770 


010001 






20 


027772 


001370 






21 










22 










23 










24 


027774 


012600 






25 


027776 


001403 






26 


030000 








27 


030004 


000773 






28 










29 










30 










31 


030006 


012601 






32 


030010 


000207 
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SBTTL PRTDEC 



Print decimal value 



PRTDEC is called to print a decimal value with leading zeroes suppressed 
and with no trailing Cr-Lf. 



Inputs: 
RO == Value to be printed 



PRTDEC: MOV 
CLR 



R1,-<SP) 
-(SP) 



; NULL ON STACK TO STOP US 

Convert value to ascii digit string and stack the digits. 

GET VALUE TO BE CONVERTED 
1*: CLR RO iSET HIGH-ORDER PART OF VALUE TO 

DIVIDE RO-Rl BY 10. 
CONVERT REMAINDER TO ASCII DIGIT 
AND STACK THE DIGIT 
GET QUOTIENT 
BR IF MORE DIGITS TO CONVERT 

Finished conversion. Print result. 



MOV 


RO, Rl 


CLR 


RO 


DIV 


#10. ,R0 


ADD 


#'0,R1 


MOV 


R1,-<SP) 


MOV 


RO, Rl 


BNE 


1* 



2*: MOV (SP)+, RO 

BEQ 3* 
. TTYOUT 

BR 2$ 



GET A DIGIT FROM THE STACK 
BR IF REACHED END 
PRINT THE DIGIT 
PRINT MORE 



Finished 



3$: 



MOV 
RETURN 



(SP)-+-,R1 



i 

i 

i 
i 
I 

I 



TSINIT - 


— TSX s 


tartup initializ 


PRTR50 - 

1 
2 
3 


~ Print 


Rad-50 


value 








4 








5 








6 








7 








8 


030012 


010146 




9 


030014 


010246 




10 








11 








12 








13 


030016 


012702 


000003 


14 


030022 


010001 




15 


030024 


005000 




16 


030026 


071027 


000050 


17 


030032 


116101 


003464 ' 


18 


030036 


010146 




19 


030040 


010001 




20 


030042 


077210 




21 








22 








23 








24 


030044 


012702 


000003 


25 


030050 


012600 




26 


030052 






27 


030056 


077204 




28 








29 








30 








31 


030060 


012602 




32 


030062 


012601 




33 


030064 


000207 




34 








35 








36 








37 


030066 
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. SBTTL PRTR50 — Print Rad-50 value 

PRTR50 is called to print a Rad-50 value. 

Inputs: 
RO = value to be printed. 



I 



PRTR50: MOV 
MOV 



Rl, -<SP) 
R2, -(SP) 



1$: 



2$: 



Convert value to ascii string and stack the characters. 



GET # CHARS TO CVT 

GET VALUE TO BE CONVERTED 

CLEAR HIGH-ORDER VALUE 

DIVIDE RO-Rl BY 50 

CONVERT REMAINDER TO ASCII CHARACTER 

STACK THE CHARACTER 

GET QUOTIENT 

BR IF MORE CHARS TO CONVERT 



Finished conversion. Print the result. 



GET # CHARS TO PRINT 

GET NEXT CHARACTER 

PRINT THE CHARACTER 

LOOP IF MORE CHARS TO PRINT 



MOV 


#3, R2 


MOV 


RO, Rl 


CLR 


RO 


DIV 


#50, RO 


MOVB 


R50CHR(R1)>R1 


MOV 


R1,-<SP) 


MOV 


RO, Rl 


SOB 


R2, 1* 



MOV 


#3, R2 


MOV 


(SP)+, RO 


. TTYOUT 




SOB 


R2, 2* 


Finished 




MOV 


<SP)+, R2 


MOV 


<SP)+, Rl 


RETURN 





Define top of TSINIT 
INITOP: 



38 



\ 



TSINIT 
PRTR50 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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Print Rad-50 value 



IF 



NE, PROCID 



Only assemble for protected Pro 350 version 



The folioujing startup code is only included for the Pro version. 
It is loaded here and executed very early during initialization 
and subsequently overwritten by I/O buffers. 

. SBTTL INSCHK — Installation validation subroutines for Pro-350 
. MCALL .PRINT 

Reserve an arg block area for encryption calls 



EDARGB: . WORD -32. 
EDADDR. . WORD DSKBUF 



i Recover license number and 


INSCHK: MOV 


Rl, -<SP) 


MOV 


R2, -<SP) 


MOV 


R3. -(SP) 


MOV 


R4, -<SP) 


MOV 


R5, -<SP) 


MOV 


(PC)+, RO 


. RAD50 


/SCB/ 


XOR 


ROi LICNUM 


MOV 


LIGNUM, TSXSIT 


MOV 


#EDARGB, RO 


CALL 


EDMTH3 



;# OF BYTES TO BE DECRYPTED (EDMTH3) 
; POINTER TO BUFFER TO BE DECRYPTED 



; SAVE REGISTERS 



DECRYPT LICENSE NUMBER 

WITH THIS CODE 

BY XORING IT 

MOVE LICENCE NUMBER TO TSGEN CELL 

POINT TO ENC/DEC ARG BLOCK (PRESET) 

DECRYPT TO INTERMED STATE 



Copy Pro ID ROM loui bytes into memory, and encrypt 1 step 



IDADDR = 173600 



; ADDRESS OF START OF PRO 350 ID ROM 



MOV 


#IDADDR,R1 


MOV 


#ROMBUF, R2 


MOV 


R2, EDADDR 


NEG 


EDARGB 


MOV 


EDARGB, RO 


MOVE 


<R1)+, <R2)+ 


INC 


Rl 


SOB 


RO, 3* 


MOV 


#EDARGB, RO 


CALL 


EDMTH2 



GET POINTER TO PRO ID ROM 
POINTER TO COPY OF HARDWARE ID 
SAVE ADDRESS FOR ENCRYPTION 
MAKE +32. FOR ENCRYPTION 
ALSO USE AS LOOP COUNTER 
3*: MOVB <R1)+, <R2)+ i GET NEXT LOW BYTE 

SKIP ID ROM HIGH BYTES 
REPEAT THROUGH 32 BYTE ROM 
POINT TO ENCRYPTION ARG BLOCK 
PERFORM METHOD 2 ENCRYPTION 

Have intermediate state of both hardware and disk copies of Pro ID 
in memory. Verify them against each other and correct memory image 
of SCHED at the same time. 

POINT TO HARDWARE COPY OF ID 
POINT TO DISK COPY OF ID 
POINT TO CODE TO BE CORRECTED 
I NIT LOOP COUNTER 

USE Lie # AS SEED FOR EDPRNW. IN RO 
4*: CMPB <R1)+, <R2)+ i VERIFY ID'S ARE THE SAME 

ABORT IF NO MATCH ON ANY BYTE 

RANDOMIZE RO FOR XOR (LIC# I NIT SEED) 

GET ENCRYPTED CODE 

RESTORE FUNCTIONAL CODE 

PUT DECRYPTED CODE BACK IN MEMORY 



MOV 


#ROMBUF, Rl 


MOV 


#DSKBUF, R2 


MOV 


#SCHED, R4 


MOV 


EDARGB, R3 


CALL 


GETLIC 


CMPB 


<R1)+, <R2)+ 


BNE 


5* 


CALL 


EDPRNW 


MOV 


eR4, R5 


XOR 


RO, R5 


MOV 


R5, (R4) + 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 



5*: 



SOB 


R3, 4* 


MOV 


(SP)+, R5 


MOV 


<SP)+, R4 


MOV 


<SP)+, R3 


MOV 


<SP)+, R2 


MOV 


(SP)+,R1 


RETURN 




. PRINT 


#TSXHD 


. PRINT 


#NOTLIC 


JMP 


INISTP 



; REPEAT THROUGH ID TESTS 
; RESTORE REGISTERS 



} ID CHECKS AND CODE DECRYPTED 

?TSX-F 

NOT LICENSED FOR THIS MACHINE 

ID'S DON'T MATCH, ABORT INIT. 



. NLIST BEX 

NOTLIC: . ASCIZ /This copy of TSX-Plus not licensed for use on this machine./ 

. LIST BEX 
. EVEN 

Subroutine to recover incremental license number. Assume it has been 
decrypted already by XORing with . RAD50 /SCB/. 



GETHC: MOV LICNUM, RO 
RETURN 



i RETRIEVE DECRYPTED LIC # INTO RO 



Reserve room for both disk and hardware copies of the Pro ID number 
and for the incremental license number 



DSKBUF 
LICNUM 
ROMBUF 



. BLKB 32. 
. WORD 
. BLKB 32. 



DISK IMAGE OF PRO ID 
INCREMENTAL LICENSE NUMBER 
COPY OF ROM ID LOW BYTES 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



. SBTTL EDEXPL — Comments on encryption methods 

Encryption and decryption methods used here depend heavily on 
pseudo-random numbers generated by the linear congrutential method. 
See Hull and Dobell. SIAM Review* 4, 230, 1962. 

For the linear congruence relation: 

X<I) == ( A * X<I-1) + C ) MOD M 

X<I) is in the range to M-1 

The sequence has full period M* provided that: 

1) C is relatively prime to M 

2) If p is a prime factor of M, A MOD p == 1 

3) If 4 is a factor of M> A MOD 4 == 1 

In the special case where M is a power of 2. these rules simplify to 

1) C must be odd 

2) A MOD 4 == 1 

.SBTTL EDMTH2 — Encryption method 2 (XOR with PRN high bytes) 

Using the license number as the initial seed, mask out the low 3 bits, 
add 1 and call the PRN generator this many times to form the seed, 
XOR each byte in the input buffer with the high byte of the next PRN 
and replace the result in the input buffer. Decryption is accomplished 
by a second application of the same process. 

Inputs: 

RO Points to an arg block of the form: 

RO > buff„si2 ; word holding byte length of buffer 

buf f__addr ; address of buffer to be encrypted 
Outputs: 

RO Randomized 
input buffer encrypted 



EDMTH2: 



MOV 
MOV 
MOV 



R1,-<SP) 
R2, -<SP) 
R3, -<SP) 



Save registers 



Fetch byte count, buffer pointer and initialize PRN seed 



?*: 



i Fetch byte count of input buffer 

; Fetch pointer to input buffer 

; Use license number as initial PRN seed 

iCopy license number to form repeat count 

i No more than 8 repeats 

jMake sure there is at least one 

i Get a new PRN 

; Advance the seed between 1 and 8 times 



Now sweep the buffer, XDRing each byte with the high PRN byte 



MOV 


<R0)+, R3 


MOV 


<R0),R1 


CALL 


OETLIC 


MOV 


RO, R2 


BIC 


#-'^C7, R2 


INC 


R2 


CALL 


EDPRNW 


SOB 


R2, 2* 



1*: 



CALL 
MOVE 



EDPRNW 
<R1),R2 



;With seed in RO, get next random number 
; Get next input byte 



TSINIT — 
PRTR50 — 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 



TSX startup initializ 
Print Rad-50 value 



MACRO 



5. 04 


Monday 


14- 


~Dec-87 




SWAB 




RO 




XOR 




RO, R2 




SWAB 




RO 




MOVE 




R2, (Ri) + 




SOB 




R3, 1* 


/ 


MOV 




(SP)+, R3 




MOV 




<SP)+, R2 




MOV 




<SP)+,R1 




RETURN 
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i Reverse PRN high and low bytes 

; Encrypt the byte 

j Restore PRN high and loiu bytes for next seed 

; Save encrypted bytes back into input buffer 

; Repeat for entire input buffer 

i Restore registers 
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I 
I 

€ 

4 
i 
i 
i 
i 
i 
i 
I 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
2o 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



. SBTTL EDMTH3 — Encryption/decryption meth 3 (swap bytes&shift bits) 

Using a prn of repeat length same as input string length* select prn 

numbered bytes from the input string* combine them into a word* 

shift the combined bytes a random number of bits* recombine the shifted 

bits and set the confused bytes back into the prn selected string bytes. 

Sign of the byte count indicates: + = encryption* - == decryption. 

If the byte count is or 1* no encryption occurs. If the byte count is 

odd* then one random selected byte will not be encrypted. 



Inputs: 
RO 



Points to an arg block 
RO > buff siz 



buf f_addr 
Outputs: 

RO Randomized 
Input buffer encrypted 



of the form: 

Word holding byte length of buffer. 
Note that buffer must be 512 or less 
in length. Flag encryption by using 
positive byte count < 2 to 512. ). 
Flag decryption by using negative 
byte count <-2 to ~512. ). 

Address of buffer to be encrypted 



EDMTH3: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

* Initialize 

MOV 
BGE 
NEC 
INC 
1*: CALL 

* Start encry 

ASR 
CALL 
CALL 
2*: TST 
BEQ 
CLR 
CLR 
MOV 
MOV 

* Select firs 

CALL 
ADD 

» Select seco 
CALL 
ADD 

> Use part of 
MOV 
BIC 

j Select encr 



Rl, -<SP> 

R2, -<SP) 

R3*-<SP) 

R4*-(SP) 

R5*-<SP) 

(R0)+* R3 

©RO* ~<SP) 
prn generator of desired 

R3, RO 

1* 

RO 

R3 

INPRNM 
ption loop through string 

R3 

GETLIC 

EDPRNM 

R3 

9* 

R4 

R5 

eSP.Rl 

Rl* R2 
t random byte 

EDPRNM 

R0*R1 
nd random byte 

EDPRNM 

RO, R2 
PRNM as semi-random shif 

RO* -(SP) 

#•^06* RO 
yption or decryption 



* Save registers 



i Save the string length 

* And save the input buffer pointer 
length 

{Recover string length 
(Branch if encryption 

* If decryption* get real repeat 

i If neg* correct for ASR round down 
i Set up for desired repeat length 

* Repeat for 1/2 the string length 

; Get lie. num. for initial seed in RO 
iSeed PRN generator (-adjacent pairs) 
iLess than 2 bytes left? 
iQuit if so (odd len -> 1 byte unch. ) 

* Clean out shifting registers 

» Retrieve buffer pointer 
i And second copy 

* Randomize in range - <strlen-l> 

i Point to first random byte of pair 

* Randomize again 

i Point to next random byte 
t amount 

* Save EDPRNM seed for later 

» Get a semi-random shift amount 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
SO 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 



TST 

BMI 
5 Do this part 

BISB 

SWAB 

BISB 

CLC 

RDR 

ROR 

NEG 

DEC 

BR 
i Do this part 
3*: BISB 

SWAB 

BISB 

CLC 

ROL 

ROL 

INC 
} Shift and rec 
4*: ASHC 

BIS 

MOV 
i Now put encry 

MOVE 

SWAB 

MOVE 

BR 
i Done> restore 
9*: MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

RETURN 



R3 

3* 

for encryption 

eRl,R4 

R4 

@R2, R4 



R4 

R5 

RO 

R3 

4* 

for 

SRI, 

R5 



decryption 
R5 



i Positive for encryption 
# Branch if decrypting 

Get first byte without sign extend 

And put it in the high byte 

Combine it with first byte 

Always do at least one shift 

Shift once 

Get low bit into r5 

Right shifts for encryption 

Reduce count of pairs remaining 

Skip decryption stuff 



fi 



R5 



R5 

R4 

R3 

ombine the 

RO, R4 

R5, R4 

(SP)+> RO 

pted bytes 

R4, eR2 

R4 

R4, @R1 

2* 

registers 
<SP)+, RO 
<SP)+, R5 
<SP)+, R4 
<SP)+, R3 
<SP)+, R2 
( SP ) +, R 1 



iGet 
i And pu 
i Combin 
; Always 
i Shift 
iGet hi 
i Reduce 
■Cen i de>crypted bytes 
i Shift 
i Recomb 
j Recove 
input stri 
} Store 
iGet hi 
i Store 
i Repeat 



back into 



rst byte without sign extend 
t it in the high byte 
e it with the first byte 

do at least one shift 
once 
gh bit into R4 

count of pairs remaining 

combined bytes 0* 2> 4 or 6 more 

ine bytes 

r EDPRNM seed 

ng 

low byte at second byte place 
gh byte 

high byte at first byte place 
through string 



and return 



i Just pop saved buffer address 
i Restore registers 



€ 
I 



TSINIT - 
PRTR50 - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 
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. SBTTL EDPRNW — Pseudo random number generator mith MOD 2-^16 

Linear congruential pseudo-random number generator with maximum repeat 
length of 65536 (2-^16). cf. Hull and Dobell and Knuth, vol 2. 



Inputs: 
RO 

Outputs: 
RO 



EDPRNW: 



EDPRNA: 



EDPRNC: 



MOV 

MOV 

MOV 

MOV 

. WORD 

MUL 

ADD 

. WORD 

MOV 

MOV 

MOV 

RETURN 



Seed value 

Netu PRNt should be used for next seed 

; Save reg isters 



R4, -(SP) 
R5, -(SP) 
RO, R4 
<PC)+>RO 
104375 
RO, R4 
<PC)+,R5 
012705 
R5, RO 
<SP)+, R5 
<SP)+, R4 



;Oet seed to be multiplied 

;Fetch multiplier 

iMultiplier, can be replaced 

/Multiply by A 

;Add C 

; Additive, can be replaced 

; Return result mod 65536. as PRN 

^Restore registers 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 



. SBTTL INPRNM 



Initialize PRN generator with repeat range M 



Using the Hull and Dobell rules* determine acceptable values for 
A and C to get a repeat range of M. 

Outputs: 

EDMULA Set with first acceptable multiplier 

EDADDC Set with first acceptable additive factor 

EDMODM Set with desired repeat length 



INPRNM: 



MOV 
MOV 
MOV 
RETURN 



#32. , EDMODM 
#5, EDMULA 
#3, EDADDC 



} Get repeat length to cover Pro ID 
i Use first valid A 
i And first valid C 
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I 
I 

€ 
I 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
2S 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 

39 030066 
40 
41 
42 
43 

44 030066 

45 000000 

46 000001 
Errors detected: 

*** Assembler statistics 



SBTTL EDPRNM 



Generate pseudo-random number in specified range M 



« INPRNM MUST BE CALLED BEFORE FIRST SEED IS PASSED TO THIS ROUTINE!!!! « 

Using linear congruential method <cf. Hull and Dobell), generate 
pseudo-random number using seed passed in RO. Return neui PRN in RO. 



Inputs: 
RO 

Outputs: 
RO 

EDPRNM: 

MOV 
MOV 
CMP 
BLO 
MOV 
CLR 
DIV 
MOV 

1*: MOV 
MUL 

EDMULA: . WORD 
ADD 

EDADDC: . WORD 
CLR 
DIV 

EDMODM: . WORD 
MOV 
MOV 
MOV 
RETURN 



Seed value> must be in range O to M (EDMODM) 

Neui pseudo-random number* should be used for next seed 



R4, -<SP> 
R5, -(SP) 
RO, EDMODM 
1* 

RO, R5 
R4 

EDMODM, R4 
R5, RO 
RO, R4 
(PC)+, R4 
25173. 
<PC)+,R5 
13849. 
R4 

(PC)+, R4 
256. 
R5, RO 
<SP)+, R5 
<SP>+, R4 



. IFF iNE, PROCID 

DSKBUF: 

. ENDC iNE, PROCID 



; Save R4 and R5 

Is seed in range to EDMODM? 
Branch and proceed if so 
Set up to divide it by EDMODM 
Set up for divide 
Divide it 

And use remainder as seed 
Get current seed ready to be multiplied 
Multiply by chosen A 
Replace at run-time with 5 
Add in C 

Replace at run-time with 3 
Clear high word for division 
Perform mod M 

Replace at run-time with 32. 
Return remainder 
i Restore R4 and R5 



i Assemble if protection code not included 
j Define dummy DSKBUF global symbol 



Address of real top of TSINIT, including PRO init code 

PROITP: 

. CSECT TSXEND 
. END 



Work file reads: 

Work file writes: 

Size of work file: 11342 

Size of core pool: 17920 

Operating system: RT-1 1 



Words < 45 Pages) 
Words < 70 Pages) 



Elapsed time: 00:03:19.50 
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DK: TSINIT, LP: TSINIT=DK: TSINIT. MAC/C/N: SYM 
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*SBIT 

*DEAD 

*FORM 

*HARD 

*MEMSZ 

*NOIN 

*OVRH 

*PHONE 

*SXON 

*TAB 

... VI 



V2 



AMEND 

ALBFX 

ALCHRB 

ALCOVL 

ALCSLO 

ALCWRK 



1-129 
1-122 
1-125 
1-154 
1-141 
1-112 
1-136 
1-109 
1-90 
1-125 
6-29 
23-61 
27-91 
2S~5S 
28-103 
29-43 
29-85 
30-94 
38-21 
41-22 
41-73 
41-101 
42-52 
44-151 
54-25 
58-10 
68-24 
73-25 
74-79 
75-95 
78-24 
6-29 
28-57 
28-70# 
29-43# 
30-85 
30-94# 
38-27 
41-29 
41-72 
41-82# 
42-47 
42-55# 
52-25# 
56-2 1# 
59-36 
66-17 
73-25 
75-20# 
75-70# 
1-106 
24-161 
23-142 
66-34 
23-103 
23-138 



39-72 

14-18 

39-69 

14-20 

44-102* 

14-71 

66-25 

14-69 

39-25 

39-66 

6-29 
23-63 
27-92 
28-62 
28-103 
29-47 
30-60 
30-94 
38-21 
41-22 
41-78 
41-102 
42-52 
44-152 
56-21 
59-36 
68-52 
73-25 
75-20 
75-95 
78-26 

6-29 
28-57# 
2S-70# 
29-43# 
30-85 
30-94# 
38-27 
41-29 
41-72# 
41-S2# 
42-47# 
42~55# 
52-25# 
56-21# 
59-36 
66-17 
73-25 
75-20# 
75-70# 
49-21 
37-12# 
26-12# 
6S-15# 
36-12# 
25-12# 



14-65 
14-67 



27-69 
22-30 



28-27 
27-27 



37-20 



6-45 
23-67 
27-96 
28-62 
28-111 
29-47 
30-61 
30-99 
38-27 
41-29 
41-78 
41-108 
42-55 
46-76 
56-21 
59-36 
68-53 
73-54 
75-20 
75-138 
78-28 

6-29# 
28-58 
28-72 
29-47 
30~85# 
30-99 
38-27# 
41-29# 
41-73 
41-83 
42-48 
42-60 
52-39 
56-29 
59~36# 
66-17# 
73-25# 
75-32 
75-95 



6-46 
23-78 
27-97 
28-62 
28-116 
29-47 
30-85 
30-99 
38-27 
41-29 
41-78 
41-109 
42-55 
46-77 
56-21 
59-50 
68-58 
73-54 
75-20 
75-139 
79-27 

6-29# 
28-58 
2S-72# 
29-47 
30-8 5# 
30-99 
38-27# 
41-29# 
41-73 
41-83# 
42-48 
42-60 
52-39 
56-29 
59-36# 
66-17# 
73-25# 
75-32 
75-95# 



23-19 

23-176 

27-101 

28-70 

28-119 

29-55 

30-85 

30-101 

38-62 

41-31 

41-82 

42-43 

42-60 

50-76 

56-29 

59-50 

68-59 

73-81 

75-22 

77-25 

79-53 

24-243 

28-58# 

29-30 

29-47# 

30-89 

30-99# 

38-62 

41-31 

41-73# 

41-84 

42-48# 

42-60# 

52-39# 

56-29# 

59-50 

68-24 

73-54 

75-32# 

77-25 



23-23 

24-221 

28-50 

28-70 

29-30 

29-55 

30-85 

30-101 

38-62 

41-31 

41-82 

42-43 

42-65 

50-76 

56-29 

60-35 

71-34 

73-81 

75-23 

77-25 

80-20 

24-243 

28-58# 

29-30 

29-47# 

30-89# 

30-99# 

38-62 

41-31 

41-73# 

41-84 



42- 
42- 

52- 



-48# 
-60# 
-39# 
56-29# 
59-50 
68-24 
73-54 
75-32# 
77-25 



23-31 

24-226 

28-50 

28-72 

29-30 

29-56 

30-89 

30-110 

38-62 

41-68 

41-83 

42-43 

42-65 

52-25 

56-63 

60-35 

71-35 

73-93 

75-32 

77-32 

80-21 

24-243# 

28-62 

29-30# 

29-55 

30-90 

30-101 

38-62# 

41-31# 

41-78 

41-84# 

42-52 

42-65 

54-25 

56-63 

59-50# 

68-24# 

73-54# 

75-51 

77-25# 



23-32 

24-227 

28-50 

28-72 

29-30 

29-56 

30-89 

30-131 

38-75 

41-68 

41-83 

42-47 

42-66 

52-25 

56-63 

66-17 

72-30 

73-94 

75-32 

77-34 

81-18 

24-243# 

28-62 

29-30# 

29-55 

30-90 

30-101# 

38-62# 

41-31# 

41-78 

41-84# 

42-52 

42-65# 

54-25 

56-63 

59-50# 

68-24# 

73-54# 

75-51 

77-25# 



23-33 

24-243 

28-57 

28-84 

29-42 

29-68 

30-90 

30-132 

38-76 

41-68 

41-84 

42-48 

42-76 

52-25 

56-111 

66-17 

72-30 

73-99 

75-51 

77-53 

82-26 

28-50 

28-62# 

29-42 

29-55# 

30-90# 

38-21 

41-22 

41-68 

41-78# 

42-43 

42-52# 

50-76 

54-25# 

56-63# 

60-35 

72-30 

73-81 

75-51# 



23-36 

24-243 

20-57 

28-95 

29-42 

29-77 

30-90 

30-138 

38-81 

41-72 

41-84 

42-48 

42-77 

52-39 

56-111 

66-51 

72-73 

73-104 

75-51 

77-54 

83-26 

28-50 

28-62# 

29-42# 

29-55# 

30-90# 

38-21 

41-22 

41-68 

41-7S# 

42-43 

42-52# 

50-76# 

54-25# 

56-63# 

60-35 

72-30 

73-8 1# 

75-51# 



23-54 

27-84 

28-58 

28-96 

29-43 

29-78 

30-90 

30-139 

38-82 

41-73 

41-84 

42-48 

42-83 

52-39 

58-6 

66-52 

72-74 

73-105 

75-70 

77-57 

28-50* 

28-70 

29-43 

29-56 

30-94 

38-2 1# 

41-22# 

41-68# 

41-82 

42-43# 

42-55 

52-25 

56-21 

56-111 

60-35# 

72-30# 

75-20 

75-70 



23-55 

27-85 

28-58 

28-102 

29-43 

29-84 

30-94 

38-21 

41-22 

41-73 

41-91 

42-52 

42-84 

54-25 

58-7 

68-24 

73-25 

74-78 

75-70 

78-19 

2S-50# 

28-70 

29-43 

29-56# 

30-94 

38-2 1# 

41-22# 

41-68# 

41-82 

42-43# 

42-55 

52-25 

56-21 

56-1 11# 

60-35# 

72-30# 

75-20 

75-70 
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ALOCBF 23-102 35-14# 

AREA 1-1 82# 6-29 23-19 23-23 23-61 23-63 23-78 23-176 24-221 24-243 28-50 28-58 

28-62 28-70 29-30 29-43 29-47 29-55 30-85 30-90 30-94 30-99 38-21 38-27 

38-62 41-22 41-29 41-31 41-68 41-73 41-78 41-82 41-84 42-43 42-48 42-52 

42-55 42-60 52-25 52-39 54-25 56-21 56-29 56-63 59-36 59-50 60-35 66-17 

68-24 72-30 73-25 73-54 75-20 75-32 75-51 75-70 77-25 77-32 77-34 78-19 

78-24 78-26 78-28 

AUTHAN 1-106 49-21 49-23 

BADDEV 28-104 28-1 16# 29-86 30-140 41-110 42-85 

BADLIN 4-6# 27-85 

BADOPN 4-1 1# 28-96 28-103 

BADVEC 27-47 27-49 27-51 27-9 1# 

BASMAP 1-100 46-52* 

BDLMSG 4-8# 27-97 

BDSPOP 4-14# 30-61 

BDVMSG 4-7# 27-92 

BOSF 4-15# 30-132 30-139 

BRKPT 1-101 75-113 

BYTES 4-32# 23-36 

C. CSW 1-142 31-30* 76-24* 76-35* 

C. DEVQ 1-142 31-31* 76-33* 

C. SBLK 1-142 31-23* 

CIDEVX 1-142 31-27 39-112* 

CA*BLK 1-147 74-52* 

CA*DVU 1-147 74-54* 

CA*HBL 1-148 74-64* 

CA*HFL 1-148 74-62* 

CA*HSH 1-148 74-66* 

CA*UBL 1-148 74-60* 

CA*UFL 1-148 74-58* 

CA*WCT 1-147 74-56* 

CC**SZ 1-149 35-74 

CCAFLG 1-186# 23-23 80-27 

CCATST 24-247 80-14 80-27# 

CCBHD 1-149 35-73* 

CCLNAM 1-193# 38-62 38-65 

CCLSAV 1-127 38-64 

CD«*SZ 1-86 35-64 

CDX*DH 1-141 35-104 

CDX*DL 1-150 14-22 

CDX*DZ 1-149 14-50 14-75 18-37 

CDX*VH 1-152 14-52 14-77 18-40 35-106 

CFHMSG 4-18# 28-116 52-33 56-23 

CHAIN 1-116 23-85 

CHKCLD 30-40 32-13# 

CHKMEM 24-149 35-140 54-20 75-31 75-39 80-1 1# 

CHNSIZ 1-121 76-21 

CKLIN 24-34# 

CL*EPN 1-126 39-58* 

CL$EPP 1-126 39-52* 

CL*EPS 1-125 39-31* 39-51* 

CL*LEN 1-156 39-79* 

CL*LIX 1-155 22-19* 39-23 

CLfOPT 1-126 39-75* 

CL*ORA 1-124 39-43* 

CL*ORB 1-124 39-36* 
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CLSORE 


1-124 


39-46* 










CL*ORG 


1-124 


39-38* 










CL*ORP 


1-124 


39-37* 










CL*ORS 


1-126 


39-44* 










CLSSTA 


1-126 


39-83* 










CLDEVX 


1-142 


31-29 


39-94* 








CLEOFS 


1-125 


39-53 


39-54 








CLHEAD 


1-142 


39-99 


39-117 








CLINCP 


1-154 


22-21 










CLINIT 


24-73 


39-1 1# 










CLKIOO 


1-1S7# 


5-165 


23-14* 








CLKRTI 


1-106 


5-71 










CLKVEC 


1-157 


5-71* 


5-72* 


5-165* 


23-14 




CLORSZ 


1-111 


39-39 










CLOTIR 


1-154 


22-20 










CLSIZE 


1-142 


39-100 










CLSTS 


1-117 


39-96 


39-114 








CLTOTL 


1-112 


24-71 


31-18 


39-18 


39-101 




CLVEND 


3-6S# 


39-132 










CLVERS 


1-110 


39-123 


39-137* 








CLVTBL 


3-60# 


39-128 










CO*SBT 


1-129 


39-74 










CO*DEF 


1-125 


39-62 










CO*FF 


1-125 


39-71 










CQ*TAB 


1-125 


39-68 










C0NFe2 


1-104 


23-165* 


23-166* 


23-169* 


24-79 




CONFIG 


1-103 


23-163* 


24-5 








CONSPC 


4-13# 


28-108 










COSRT 


4-34# 


73-94 










CRLF 


4-9# 


27-96 


27-101 


28-111 


28-119 




CS*ENT 


1-144 


76-24 










CS«NMX 


1-as 


76-34 










CS*OPN 


1-144 


76-24 










CSHALC 


1-121 


35-71 


69-161 


74-17 


74-18 




CSHBAS 


1-104 


7-39 


9-37* 








CSHBFP 


1-147 


74-47* 










CSHBUF 


24-206 


74-12# 










CSHDEV 


1-86 


35-63* 










CSHDVN 


1-86 


35-67* 










CSHOVF 


4-39# 


74-79 










CSHSIZ 


1-147 


74-33* 










CSHVEC 


1-105 


7-42 










CURDEV 


l-204# 


59-54* 


60-40 


62-45 






CURNAM 


l-205# 


51-25* 


56-20* 


58-8 






CVTDVU 


30-37 


33-14« 


76-29 








CW*50H 


1-103 


24-5 










CW*BTH 


1-102 


23-161 










CW*ESP 


1-112 


23-166 










CW«FB 


1-102 


23-162 










CW$FGJ 


1-102 


23-162 










CW*GDH 


1-102 


23-161 










CW*LGS 


1-102 


23-161 










CW«PRO 


1-106 


23-116 


24-79 








CW$Q6S 


1-114 


23-169 










CU$USR 


1-103 


23-162 










CW*XM 


1-103 


23-162 









24-78* 



39-108 69-149 



58-10 



74-28 



73-99 



74-44 



77-57 



i 

I 

i 
i 

i 

4 
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CXTALC 24-93 45-12# 

CXTBAS 1-111 45-24 

CXTBUF 1-118 35-134* 

CXTPAG 1-87 28-40 38-41 45-45* 47-31 

CXTPDR 1-110 45-38* 

CXTRMN 1-111 45-23* 45-24* 

CXTSIZ 1-110 45-16 

CXTWDS 1-110 45-30* 45-42 

DATIMH 1-104 24-29* 

DAT I ML 1-104 24-30* 

DC**SZ 1-132 37-64 

Decs I Z 1-85 69-92 

DEVSIZ 1-93 24-50* 24-65* 39-98* 39-116* 53-45* 

DEVVEC 5-139 11 -6# 

DFJMEM 1-133 47-50* 

DHBFSZ 1-108 35-110 35-112 

DHINIT 14-56 19-8# 

DHLPRM 14-82 15-S# 

DHOINT 1-135 18-42 

DI*CL 1-117 

DI*DU 1-155 2-30 

DI*LD 1-117 24-63 

DI*MU 1-155 2-32 

DI*PI 1-156 

DI*TT 1-118 24-48 

DI*XL 1-155 2-31 

DM*CSR 1-151 15-13 15-15* 15-16* 19-27 

DM*LSR 1-151 15-17* 

DMYDEV 1-95 30-34 30-57 49-25 73-20 

DOHNLC 54-45 56-106 59-13# 

DORTI 75-144# 

DS*ABT 1-124 

DS*DIR 1-138 24-63 53-50 

DS*NRD 1-129 53-52 

DS*SFN 1-139 24-63 

DS*VSZ 1-138 24-63 

DSKBUF 1-58 89-39# 

DSTBLK 1-194# 79-27 79-32 79-39 

DTLX 1-103 38-52* 

DTYPE 1-128 49-27 

DV**SZ 3-6# 51-58 

DV«FLG 3-5# 51-56 

DV*NAM 3-4# 51-54 

DVFLAG 1-138 24-49* 24-64* 39-97* 39-115* 50-43 53-30* 53-54* 64-31* 64-42 

DVFLBS 3-13# 51-53 

DVFLND 3-42# 51-59 

DVSTAT 1-89 24-48* 24-63* 39-96* 39-114* 53-46* 53-50 53-52 

DW**SZ 1-114 69-137 

DX*DMA 1-138 3-16 3-18 3-19 3-20 3-21 3-22 3-23 3-26 3-28 3-31 3-32 

3-33 3-34 3-37 3-38 51-65 

DX*EBA 1-92 3-39 24-64 51-67 

DX*IBH 1-97 3-18 3-31 3-32 3-33 3-34 50-48 

DX*MAP 1-145 50-52 64-31 64-46 

DX*MPH 1-97 3-14 3-15 3-16 3-18 3-24 3-25 3-27 3-29 3-30 3-31 3-32 

3-33 3-35 3-36 3-38 3-40 3-41 50-46 

DX*NCA 1-157 3-39 39-97 39-115 53-54 
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DX*NHM 


1-97 


3-17 


3-19 


3-23 


3-26 


3-34 


3-39 




DX*NMT 


1-129 


39-97 


39-115 


53-54 










DX*NRD 


1-130 


39-97 


39-115 












DX*NST 


1-137 


3-23 


3-34 












DZINIT 


14-58 


17-8# 














DZOINT 


1-135 


18-36 














EMMAP 


1-99 


5-123 


44-65 


44-109 


56-77 


56-82 


61-36 




EMTENT 


1-107 


5-89 














ENTVEC 


7-35 


7-43 


7-51 


8-1 1# 










ERHMSG 


4-19# 


52-41 


54-27 


56-65 










ERHNDV 


4-20# 


52-58 














ERP 


27-86 


27-94# 














ERRLOG 


1-134 


57-22 














EXCBUF 


1-84 


25-17 














EXTLSI 


l-245# 


44-119 


50-54 


64-24 










FC«*SZ 


1-134 


69-69 














FC*LBN 


1-115 


37-61 














FETDEV 


1-198# 


79-23* 


79-27 


79-53 










FF**SZ 


1-115 


37-56 














FILBLK 


l-203# 


56-49* 


56-63 


56-90* 


72-20* 


72-30 


72-57* 




FMEMHI 


l-200# 


24-168 


44-103* 


44-114 


46-65* 


56-105* 


56-107 




FMEMLO 


1-201# 


24-167* 


46-37 


46-62 


63-28 








FNDHRB 
FOR CEO 
FORK 


1-58 

30-26 

1-89 


62-lS# 

34-S# 

57-15 














FPTRAP 
FQ**SZ 
FREIOQ 


1-117 

1-95 

1-117 


5-95 
35-37 
35-18* 














FREPGS 
FRKGEN 
FRKINI 


1-118 

1-95 

1-95 


47-22* 

35-34 

35-36* 


35-37 












FSTDL 


1-94 


37-22 














FSTIOL 


1-154 


22-11 


35-102 


36-24 










FW**SZ 


1-115 


37-58 














GENTOP 

GETHNH 

GETHNL 

GETMAP 

GETODT 

GETOVL 

GETSRT 

GTBYT 

GTLIN 

H. CSR 

H. DSTS 

H. DVSZ 


1-156 
24-202 
24-97 
24-172 
23-149 
67-34 
24-180 

1-101 

l-229# 

1-95 

1-89 

1-93 


23-27 

55-13# 

49-14# 

67-12# 

75-13# 

71-12# 

73-13# 

57-25 

23-51 

52-79 

52-48 

53-45 


53-46 












H. GEN 


1-89 


52-67 


52-71 


56-30 










H. INS 


1-95 


52-88 














H. SIZ 


1-93 


53-44 














HANDSK 


1-83 


53-38* 














HANENT 


1-89 


11-14 


24-51* 


24-66* 


39-99* 


39-117* 


54-33* 




HANMAP 


56-99 


59-22 


59-63 


60-41 


61-14# 








HANNAM 


l-230# 


52-24* 


52-25 


56-19* 


56-21 








HANPAR 


1-97 


11-20 


12-25 


12-54 


50-60* 


50-71* 


54-16* 




HANRCB 


1-83 


26-20* 


62-23 












HANRCO 


1-83 


26-21* 


26-22* 











50-44 



61-55 72-47 72-52 73-65 73-71 



63-27 63-34* 63-35 



54-34* 56-34* 59-21 59-61 

55-23 56-47* 61-26 61-32 
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HANSIZ 1-93 39~102« 39-1 1S» 50-64 53-44* 54-18 56-39 56-98 

HANUMP 56-101 59-24 59-72 59-79 60-31 61-49# 

HANXIT 1-97 12-59 

HANXMR 1-58 63-22# 

HFSLIN 1-150 

HF*MC 1-151 19-21 19-22 

HF*RIE 1-150 

HF*TIE 1-150 

HF*TSB 1-150 

HGENFL l-237# 52-71* 56-30* 57-17 57-20 

HIMAP 1-94 5-133 46-56* 47-20 

HLERR 50-67 52-34 52-42 52-59 52-70 54-28 56-24 56-66 5S-5# 

HMAP 1-197# 56-48* 56-73 56-89* 

HN2BIG 4-27# 50-66 

HSOER 4-22# 52-69 

HV**SZ 2-20# 52-60 

HV*ID 2-17# 52-49 

HV*UPD 2-19# 52-54 

HV*VER 2-lS# 52-51 

HVEND 2-33# 52-61 

HVTBL 2-29# 52-46 

ICONFG 1-241# 44-119* 50-54 64-24 

II**SZ 1-85 35-57 

ILSW2 1-112 14-69 39-65 

INDDBL 1-139 41-40* 

INDDBS 1-139 41-45* 41-56 

INDFIL 1-84 41-62 41-68 41-73 41-78 41-84 41-89 41-91 

INDINI 24-118 41-12# 

INDNAM l-232# 41-21* 41-22 41-51 

INDOPN 4-40# 41-102 41-109 

INDSAV 1-139 41-17* 41-50 

INDTSV 1-139 41-88 

INICLK 24-5# 

INIDEV 24-47# 

INIJMP 1-107 5-161 

INIOVL 5-13 7-9# 

INISTP 5-165# 23-37 23-56 24-228 27-102 28-112 28-120 30-64 30-133 38-77 38-83 44-153 

46-78 58-11 66-53 68-54 68-60 71-36 72-75 73-100 73-106 74-80 75-24 75-140 

77-58 80-22 80-29 

INITGO 1-57 23-8# 23-104 23-106 

INITOP 1-57 1-207 23-132 23-134 65-52 65-54 83-37# 

INMXV 1-108 18-16 

INRECV 1-108 14-28 

INSCKl 50-25 5i-16# 

INSCK2 50-31 52-14# 

INSTBL 1-85 35-54* 

INSTBN 1-85 35-59* 

INTEN 1-89 57-16 

INTMXl 1-109 

INTSND 1-113 5-24* 5-152 23-113* 

INTSSZ 1~S4 23-122 

INTSTK 1-113 5-155 23-123* 

INVEC 1-87 14-27 27-38 

lOMAP 1-99 1-137 5-126 10-37 

I OP AGE 1-99 43-29 

lOQSIZ 1-118 35-19 
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lOTIMR 


1-134 


57-19 
















JCXPGS 


1-133 


47-32* 
















JM**SZ 


1-111 


35-44 
















JMPO 


1-103 


5-78 
















JSWLOC 


1-116 


23-85 
















KEYSEG 


7-23 


9-10# 


71-22 














KMNBAS 


1-119 


38-34 
















KMNCHN 


1-98 


38-56 
















KMNHI 


1-96 


38-35* 
















KMNNAM 


1-192# 


38-21 


38-57 














KMNPGS 


1-98 


38-42* 


47-26 














KMNSTK 


1-98 


38-44* 
















KMNSTR 


1-98 


38-46* 
















KMNTOP 


1-96 


38-32* 
















KPARO 


1-98 


43-14 
















KPAR5 


1-135 


5-130* 


11-9 


11- 


-22* 


11- 


-62* 


12-52 






61-32* 


61-57* 


72-42 


72- 


-43* 


72- 


-54* 






KPAR6 


1-157 


59-71* 


59-78* 


60- 


-26 


60- 


-27* 


60-45* 




KPAR7 


1-100 


43-29* 
















KPDRO 


1-100 


43-16 
















LCDTYP 


1-109 


14-22 


14-72 


35- 


-104 


35- 


-106 






LCLUNT 


1-136 


22-13* 


22-18 


22- 


-26* 


39- 


-26* 






LDITBL 


3-77# 


40-15 
















LDDEVX 


1-138 


24-56* 


24-61* 














LDHAND 


49-31 


49-46 


50-2 1# 














LDHBIB 


1-110 


35-108* 
















LDHBIP 


1-110 


35-109* 
















LDHB2B 


1-110 


35-111* 
















LDHNHI 
LDHNLO 
LDINIT 


55-29 
50-72 
24-67 


56-12# 
54-12# 
40-8# 
















LDREAD 
LDVERS 
LHIRBA 
LHIRBB 


59-64 
1-114 
1-90 
1-90 


60-15# 
40-9 
36-30 
36-43* 


40-21* 
36-39* 














LHIRBC 


1-91 


36-54 


36-60* 


36- 


-61 


36- 


-67* 






LHIRBE 


1-90 


36-48* 
















LHIRBG 


1-90 


36-45* 
















LHIRBP 


1-90 


36-44* 
















LHIRBS 


1-91 


36-46* 
















LINBUF 


1-94 


37-28* 
















LINCHK 


24-34 


27-9# 
















LINEND 


1-96 


37-32* 
















LININI 


5-113 


14-S# 
















LINIR 


1-154 


22-21* 


22-29* 














LINSIZ 


1-94 


37-29 
















LINSPC 


1-97 


37-30* 
















LINTRP 


27-41 


27-43 


27-68 


27- 


-84# 










LINTYP 


22-9# 


27-26 
















LMXLN 


1-150 


14-92 


15-16 


16- 


-14 










LMXNUM 


1-87 


14-73 


15-12 


16- 


-12 


27- 


-29 


39-29 




LODINI 


6-9# 


7-24 
















LODOVL 


71-26 


72-9# 
















LOKBAS 


1-105 


7-47 


9-33* 














LOKCSH 


1-132 


37-71* 
















LOKMEM 


1-100 


37-55* 















12-55 56-72 56-73* 56-84* 60-25 60-46* 
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LOKVEC 1-105 7-50 

LOMAP 1-93 5-131 46-50* 47-21 

LOTBUF 1-96 37-38* 

LOTEND 1-96 37-41* 

LOTSIZ 1-96 37-39 37-40 39-42 

LOUT I R 1-154 22-20* 22-28* 

LOWEND 3-109# 65-39 

LOWOVL 3-106# 65-36 

LSTDL 1-94 37-24 

LSTHL 1-154 14-43 14-64 35-114 36-17 

LSTLIN 1-126 27-21 

LSTMX 1-116 14-48 35-90 

LSTPL 1-87 22-9 28-26 35-100 36-22 

LSTSL 1-88 37-46 41-57 42-32 

LSWIO 1-90 39-25* 

LSW3 1-112 14-18 14-20 14-65 14-67 14-71* 22-30* 27-27 27-69* 28-27 37-20 

LSW5 1-157 

LSW6 1-122 

LSWPBK 1-88 

LTTPAR 1-105 37-26* 

LXCL 1-84 22-27* 

MA*SYS 1-112 5-135 

MAPALC 24-212 46~27# 

MAPPAR 1-97 5-130 46-64* 

MAPSIZ 1-99 44-99 44-101 

MAPSYS 1-136 5-104 75-118 

MAXDEV 1-83 59-59 

MAXDVL 3-98# 3-100 

MAXSLO 1-91 36-33 36-35 

MB**SZ 1-144 69-99 

MEM256 1-132 5-124 44-116* 44-125 56-75 56-80 60-21 60-48 61-34 61-53 72-45 72-50 

73-63 73-69 

MEMINI 23-155 43-6# 

MEMLIM l-236# 23-72* 80-11 

MEMPAR 1-130 5-93 

MEMTST 24-89 44-24# 

MF*CM 1-151 19-30 

MF*CS 1-151 19-29 

MF*LE 1-151 15-17 

MF«LIN 1-149 15-15 

MH*LPR 1-151 

MH*PBR 1-152 

MH*SCR 1-150 19-12 19-21* 19-22 

MHNSIZ 1-107 56-45* 

MI**SZ 1-146 64-56 64-68 

MI*LNK 1-145 37-86 64-71* 

MI*SBP 1-145 37-82* 

MINCTR 1-U9 

MIOBHD 1-145 37-80 64-65* 

MIODBG 1-127 64-22 

MIOFLG 1-145 37-78 64-51* 69-143 

MIONWB 1-146 64-57 64-76 

MIOWHD 1-146 64-75* 

MMENBL 1-93 5-118 44-62 44-110 56-74 56-83 61-33 61-56 72-44 72-53 73-62 73-72 

MONFQH 1-111 35-43* 

MONVEC 1-119 5-17 26-22 52-92 61-22 
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MPARO 1-92 48-20 

MPARi6 1-92 48-25 

MPARFL 1-92 48-7 

MPIVSZ 12-19# 24-105 

MPPHY 1-101 57-26 

MR**SZ 1-144 69-102 

MSOBAS 1-102 9-21* 

MTSXDV 77-40 77-53# 78-35 

MU«TXT 1-116 69-107 

MUXVEC 17-17 18-9# 19-17 20-17 

MVSIZ 1-130 45-25 45-49 

MW**SZ 1-146 64-57 64-78 64-82 

MW*LNK 1-146 64-79* 

MXCSR 1-87 17-12 17-21* 17-22 27-31 27-72* 

MXDTR 1-109 17-26* 

MXJADR 1-141 47-43* 

MXJMEM 1-133 47-38* 

MXLNT 1-117 35-92* 

MXLPR 1-112 14-94* 

MXRBUF 1-109 17-24 20-27 

MXTYPE 1-108 14-50 14-52 18-37 18-40 

MXVEC 1-87 18-15 27-33 

NDL 1-96 28-25 

NDVRCB 1-83 26-16 

NEDCHR 1-154 22-28 

NEXMSO 4-25# 

NFRESB 1-114 30-118* 

NFSBLK 1-1B3# 42-60 42-61 42-62 

NIOL 1-121 39-101 

NLINES 1-120 37-58 

NMSNMB 1-131 35-50 

NMXHAN 1-1 96# 24-102 50-59* 

NOCCL 4-17# 38-76 

NOCLOK 4-23# 24-227 

NOKMON 4-16# 38-82 

NOODT 4-26# 75-23 

NOSYDV 4-29# 

NOXM 23-61 44-151# 

NSCP 1-86 35-130 

NSIP 1-85 35-56 

NSL 1-96 28-25 

NSPLBL 1-113 30-80 30-117 69-78 

NSPLDV 1-99 30-22* 30-44* 30-50* 30-75 30-114 

NSPLFL 1-113 35-78 

NUMCCB 1-94 35-74 

NUMCDB 1-85 37-54* 

NUMDCD 1-132 37-53* 

NUMDEV 1-88 11-57 24-52* 24-59* 24-60 33-31 39-92* 39-93 39-110* 39-111 51-43 53-24* 

53-25 55-34 64-33 64-44 77-35 78-29 

NUMFRK 1-95 35-34 35-37 

NUMIOQ 1-117 35-19 

NUMRDB 1-120 1-148 24-176 

NXIVMH 1-84 24-104 

NXMMSG 4-24# 44-152 

0. ADR 1-135 9-15 65-35 68-30* 69-22 

0. BLK 1-135 6-29 68-24 72-20 
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0. PAR 


1-135 


6-34 «• 


72-25* 
























0. SIZ 


1-135 


6-21 


6-23 


68-34 


69-26 


72-19 


















ODTBAS 


i-178# 


75-44 


75-60 
























ODTBLK 


1-231# 


75-20 


























ODTFLG 


1-184# 


23-89* 


23-147 
























ODTRDM 


4-28# 


75-139 


























ODTRDX 


75-34 


75-52 


75-73 


75-138# 






















ODTSTA 


l-235# 


75~46« 


75-123 
























ODTTOP 


1-185# 


75-58* 


75-129 
























ODTTRP 


1-123 


75-128* 


























OORCLO 


69-60 


69-149# 


























OORCSH 


69-62 


69-161# 


























OORDBG 


69-61 


69-1 55# 


























OORDMP 


69-63 


69-167# 


























OORLOK 


69-53 


69-88# 


























OORMIO 


69-59 


69-143# 


























OORMSG 


69-54 


69-97# 


























OORPLS 


69-56 


69-1 14# 


























OORSLE 


69-57 


69-129# 


























DORSPL 


69-52 


69-75# 


























OORSWP 


69-55 


69-123# 


























OORUSR 


69-51 


69-6S# 


























OORWIN 


69-58 


69-135# 


























DOXFIN 


69-175 


69-190# 


























OOXNO 


69-76 
69-173# 


69-89 


69-98 


69-115 


69-124 


69-130 


69-136 


69-144 


69-150 


69-156 


69-162 


69- 


-168 




OOXYES 


69-37 
69-157 


69-71 
69-163 


69-84 
69-169 


69-91 
69-1 79# 


69-93 


69-110 


69-119 


69-125 


69-131 


69-139 


69-145 


69- 


-151 




OPNCHN 


30-48 


76~14# 


























OPNKMN 


24-114 


3e~17# 


























OPNRSF 


24-140 


29-1 1# 


























OPNSWP 


24-136 


2S-13# 


























OPTOVL 


67-21 


68-42 


69-15# 
























OS**SZ 


3-96# 


3-100 


7-26 


65-46 


66-36 


67-23 


67-35 


70-31 














OS*FLG 


3-94# 


7-21 


65-42* 


65-64* 


66-33* 


67-32 


70-22 
















OS*OVL 


3-95# 


6-15 


9-14 


65-34 


66-32* 


68-19 


69-21 


72-18 














OS*SIZ 


3-93# 
70-28 


6-19 
71-16 


7-25 


65-32 


65-43 


65-65 


66-35* 


67-22* 


67-30 


70-20 


70-24 


70- 


-28 




OSEND 


3-101# 




























OSLAST 


3-102# 


7-27 


65-47 


66-40* 


67-24 


67-36 


70-32 
















OSTABL 


3-100# 


3-102 


7-20 


65-31 


66-31 


67-20 


67-29 


70-19 














OSZ 


1-175# 




























OTMXV 


1-108 


18-17 


























OTRECV 


1-108 


14-29 


























OVLBAS 


l-202# 


7-14 


65-30* 
























OVLBLD 


65-23 


66-10# 


























OVLEND 


69-35 


69-64# 


























OVLLST 


69-31 


69-50# 


























OVLPOS 


23-127 


65-15# 


























OVLTRY 


65-62 


70-14# 


























OVRADD 


1-136 


66-27* 


























PARENL 


1-92 


48-21 


























PARSET 


24-85 


4S-7# 


























PHSQVF 


4-33# 


46-77 


























PHYMEM 


1-141 


5-121 


44-98* 
























PIINSZ 


23-1 12# 


23-120 
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PISRT 


1-57 


l-249# 










PMPAR 


1-131 


37-93«- 










PMSIZE 


1-131 


37-91 










PNAME 


1-89 
78-42 


24-47* 


24-62* 


33-32 


39-95* 


39-113* 51-45 


PPTERM 


1-57 


l-254# 










PROASM 


1-20 


1-32 


1-57 


1-63 


5-29 


5-143 10-1 




44-45 


44-55 


48-1 


64-1 






PROBUF 


1-58 


l-206# 


23-119* 








PROCID 


1-24 


23-95 


23-146 


75-1 


75-60 


84-1 


PROFLG 


1-98 


5-53 


23-118* 








PROITP 


1-57 


89-44# 










PRTDEC 


23-35 


27-100 


28-110 


S2-9# 






PRTOCT 


27-95 


Sl-8# 










PRTR50 


28-118 


30-63 


58-9 


73-97 


77-56 


83-S# 


PSW 


1-94 


44-71* 


44-88* 


56-71* 


56-85* 


61-18* 61-65* 


PTBYT 


1-100 


57-24 










PTWRD 


1-100 


57-23 










PVSPBL 


1-114 


30-115 










QBUS 


1-137 


23-167 


44-117 








R50C1 


l-222# 


32-30 


39-113 








R50C10 


l-223# 


32-32 


32-36 








R50C17 


l-224# 


32-34 










R50CHR 


4-42# 


83-17 










R50CL 


1-219# 


32-17 


39-95 








R50CL0 


l-220# 


32-19 


32-23 








R50CL7 


1-221# 


32-21 










R50CSH 


1-213# 


9-35 










R50LD 


1-217# 


24-62 


51-30 








R50L0K 


1-211# 


9-31 










R50LS 


l-226# 












R50MSe 


l-209# 


9-19 










R500DT 


l-227# 


23-87 










R50PI 


1-218# 












R50SY 


1-216# 












RSOTIO 


1-214# 


9-39 










R50TT 


1-21 5# 


24-47 










R50USR 


1-212# 


9-27 










R50VM 


l-225# 












R50WIN 


1-210# 


9-23 










RBD 


1-177# 


75-47 










RBR 


1-116 


14-102 










RC**SZ 


1-121 


35-28 










RDB 


1-120 


24-178 










RDBEND 


1-120 


24-182 










RDERR 


4-37# 


6-46 


66-52 


68-53 


72-74 




RDINT 


1-116 


14-106 










REDUCE 


4-31# 


23-33 










RELFIL 


75~58# 












RELOC 


1-101 


57-27 










REQMIS 


4-10# 


77-54 










RID 


1-176# 












RLBF 


l-233# 


75-59* 


75-64* 


75-65 


75-70 


75-75 


RLBFND 


l-234# 


75-65* 


75-66* 


75-87 






RMNPDR 


1-112 


45-56* 










RMON 


1-104 


5-17* 


5-167* 


23-13 


23-115 


23-159 52-91 



53-29* 



13-1 



56-19 



14-1 



56-20 



24-38 



77-36 



24-187 



70-30 
27-1 



-41* 



72-55* 73-59* 73-61* 



73-73* 



52-92* 



52-95* 61-22* 61-61* 
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RPRVEC 


1-102 


11-48 


52-93 


59- 


-58 




RSFBLK 


1-140 


29-23 


29-30 


29- 


-43 


29-47 


RSFERR 


4-12# 


29-78 


29-85 








RSR 


1-87 


14-104 


27-37 


39- 


-27 




RS2 


1-174# 


75-35 










RT**SZ 


1-122 


24-181 










RT*BAS 


1-121 


73-48* 










RT*NAM 


1-138 


73-33* 


73-34* 








RT*SKP 


1-120 


73-39 










RT*TOP 


1-120 


73-42* 










RTFTCH 


28-20 


29-24 


30-78 


41- 


-63 


42-37 


RTMNVC 


1-189# 


5-167 


23-13* 


61- 


-61 




RTNKM 


44-60 


44~146# 










RTTRP4 


1-1S8# 


5-166 


23-12* 








SAVBLK 


1-190# 












SB**SZ 


1-131 


35-50 










SCHED 


1-88 












SCPFHD 


1-86 


35-129* 










SDANAM 


1-119 


30-30 










SDCB 


1-127 


30-23 










SDCBSZ 


1-128 


30-68 










SDCHAN 


1-128 


30-47 


31-23* 


31- 


-30* 


31-31* 


SDDVU 


1-91 


30-38* 










SDNAME 


1-128 


30-28* 


30-57* 








SEGCHN 


1-140 


29-62 










SETCHN 


28-80 


29-64 


30-109 


38- 


-58 


38-66 


SETJSZ 


24-216 


47-16# 










SETLIN 


14-49 


i4-64# 










SETMIO 


24-144 


64-18# 










SETMUX 


14-4S# 












SETSY 


24-110 


78-14# 










SETUMP 


5-109 


10-i4# 










SETVEC 


11-36 


11-50 


12-21# 








SFCB 


1-113 


35-81* 










SFCBFH 


1-113 












SFCBND 


1-113 


35-83* 










SFCBSZ 


1-113 


35-80 










SG«ELG 


1-104 


23-172 


57-20 








SO* IDT 


1-104 


23-173 


57-17 








SG*MMU 


1-105 


23-173 


52-67 








SG*MTM 


1-105 


23-173 










SG«MTS 


1-105 


23-172 










SO*PAR 


1-105 


23-172 










SG*TSX 


1-141 


23-173 










SHRRCB 


1-120 


35-23* 










SHRRCN 


1-120 


35-30* 










SIZERR 


47-59 


79-69 


80-13 


80- 


-20# 




SKPDEV 


l-228# 


51-35 










SLTSIZ 


1-116 


28-41* 










SMRSIZ 


1-149 


67-15* 


67-41 


67- 


-43* 




SNMSHD 


1-131 


35-49* 










SP**SZ 


1-86 


35-130 










SPLANM 


1-127 


30-25 










SPLBLK 


1-130 


30-77 


30-85 


30- 


-90 


30-94 


SPLCHN 


1-130 


30-107 










SPLCLD 


30-42 


31-13# 











29-63 



29-68 



79-17# 



41-52 



41-90 



77-18# 



30-108 30-110 
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SPLDEV 


1-127 


30-24 


49-42 






















SPLDVN 


1-128 


30-70 
























SPLINI 


24-130 


30-7# 
























SPLNB 


1-121 


69-77 
























SPLND 


1-127 


30-7 


49-40 


69-75 




















SPNEED 


28-97 


2S-108# 


29-79 


41-103 


42-78 


















SROMMR 


1-98 
72-53* 


5-118* 
73-62* 


23-62 
73-72* 


44-62* 


44-110* 


56-74* 


56-83* 


60-24 


60-47* 


61-33* 


61-56* 


72-44* 




SR3FLG 


1-99 


5-119 


44-39* 


44-63 


44-107 


















SR3MMR 


1-99 
61-55* 


5-123* 
72-47* 


5-126* 
72-52* 


10-37* 
73-65* 


44-37 
73-71* 


44-65* 


44-109* 


56-77* 


56-82* 


60-23 


60-50* 


61-36* 




SRTOVF 


4-3S# 


73-105 
























SRTSIZ 


1-149 


24-185* 
























SS 


1-116 


23-44 
























SSEND 


1-118 


23-41 
























STA 


1-172# 


75-43 
























STDVTB 


50-38 


53~20# 
























STHNPV 


54-41 


56-100 


57-ll# 






















STK 


1-173# 


























STKLVL 


1-84 


5-25* 


5-157* 






















SVERR 


4-35# 


























SWDBLK 


1-88 


28-19 


28-50 


28-58 


28-62 


28-79 


28-84 














SWPCHN 


1-88 


28-78 
























SUP JOB 


1-115 


35-127* 
























SWPPOS 


1-115 


35-125* 
























SYINDX 


1-119 


78-36* 
























SYNAME 


1-140 


24-126 


41-21 


78-43* 




















SYSDAT 


1-123 


24-223* 
























SYSOEN 
SYSMAP 
SYSUPD 


1-106 
1-136 
1-155 


23-174* 

75-117 

39-127 


52-54 






















SYSVER 
SYTIMH 
SYTIML 


1-155 
1-123 
1-123 


23-177* 

23-19 

24-220 


39-125 
24-221 
24-224 


40-13 


52-51 


















SYUNIT 

TAKOVR 

TIOBAS 

TIOVEC 

TKISEC 

TKIVAL 

TK3SVL 

TK5VAL 

TOOBIG 

TOPMEM 

TRCSET 

TRPIO 

TRP14 

TRP20 

TRP24 

TRP250 

TRP34 

TRP4 

TSEMT 

TSEXEC 

TSOEN 


1-118 
5-9# 
1-109 
1-106 
1-94 
1-108 
1-133 
1-133 
4-30# 
1-199# 
44-34 
1-107 
1-123 
1-107 
1-107 
1-123 
1-107 
1-106 
1-92 
1-101 
1-101 


78-20* 
24-251 

7-32 

7-34 
24-10* 
24-13* 
24-12* 
24-11* 
23-32 
23-68* 
44-141# 

5-81 

5-83 

5-85 

5-87 

5-97 

5-91 

5-79 
75-116 
75-115 
75-114 


78-40 

9-41* 

24-19* 

24-22* 

24-21* 

24-20* 

80-21 

79-47 

52-76 


52-77 




















TSINIT 


l-6# 


1-57 


23-77 


23-101 


28-70 


29-55 


30-99 


75-112 
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TSR 


1-116 


14-99 
























TSTWRD 


44-22# 


44-86* 


44-89* 


44-91 




















TSXHD 


4-5# 


6-45 


23-31 


23-54 


24-226 


27-84 


27-91 


28-95 


28-102 


29-77 


29-84 


30-60 






30-131 


30-138 


38-75 


38-81 


41-101 


41-108 


42-76 


42-83 


44-151 


46-76 


58-6 


66-51 






68-52 


63-58 


71-34 


72-73 


73-93 


73-104 


74-78 


75-22 


75-138 


77-53 


80-20 






TSXPRO 


1-33 


1~34# 


1-73 


l-74# 




















TSXRUN 


4-2 1# 


23-55 
























TSXSAV 


1-191# 


























TSXSIT 


1-111 


























TSXSIZ 


4-36# 


68-59 


71-35 






















TTINCP 


1-153 


22-29 
























UBUSMP 


1-137 


10-21 


44-127* 


50-50 




















UC**SZ 


1-143 


42-25 
























UCLBLK 


1-143 


4^-2S^^ 
























UCLDAT 


1-143 


42-36 


42-43 


42-48 


42-52 


42-64* 


42-66 














UCLINI 


24-122 


42-10# 
























UCLNAM 


1-140 


24-126* 
























UCLOPN 


4-4 1# 


42-77 


42-84 






















UEXINT 


1-130 


5-42 
























UEXRTN 


1-129 


5-46 
























UK**SZ 


1-143 


42-22 
























UMODE 


1-117 


44-71 


44-88 


44-146 




















UMRADR 


1-137 


10-27 
























UMSYTP 


1-118 


24-154* 
























UN I BUS 


1-137 


44-123 
























UPARO 


1-100 


43-15 
























UPAR6 


1-122 


73-57* 
























UP AR7 


1-93 


44-70* 


44-87* 






















UPDRO 
UPDR6 
UPMODE 


1-100 
1-122 
1-121 


43-17 

73-58* 

73-59 
























US**SZ 
USRBAS 
VBUSTP 


1-143 
1-103 
1-119 


42-23 

9-29* 
23-167 


44-117 


44-123 




















VCSHNB 
VDBFLG 
VDFMEM 


1-126 

1-92 

1-133 


74-17* 
69-155 
47-47 


47-49 






















VF*LIN 

VF*MR 

VF*RE 


1-153 
1-152 
1-153 


16-13 
20-21 
16-15 


20-22 






















VF*RIE 

VF*SC 

VF*TIE 


1-152 
1-153 
1-152 


























VH*CSR 
VH*LCR 
VH*LPR 


1-152 
1-153 
1-152 


16-13* 
16-15* 


16-14* 


20-12 


20-21* 


20-22 
















VHIMEM 
VHINIT 
VHLPRM 


1-87 
14-54 
14-87 


28-38 
20-S# 
16-S# 


47-35 


47-37 




















VHOINT 


1-153 


18-39 
























VINABT 


1-122 


27-67 


30-58 


52-30 


52-56 


73-31 
















VLDSYS 


1-144 


24-57 


51-32 






















VMAXMC 
VMIOBF 
VMIOSZ 


1-144 
1-146 
1-145 


69-97 
64-55 
37-83 


64-66 




















I 


VMLBLK 


1-115 


37-59 























I 
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VMSCHR 1-91 69-104 

VMXCSH 1-86 35-65 

VMXMON 1-111 35-41 

VMXMRB 1-147 69-101 

VMXMSG 1-144 69-108 

VMXSF 1-115 37-51 37-57 69-BS 

VMXSFC 1-115 37-54 37-62 

VMXWIN 1-114 35-25 35-27 69-135 

VNCSLO 1-91 36-32 

VNCXOF 1-91 36-56 

VNCXON 1-91 36-63 

VNFCSH 1-134 69-68 

VNGR 1-121 35-24 

VNUIP 1-85 35-55 

VNUMDC 1-85 37-53 37-65 37-72 69-90 

VPAR5 1-135 23-69 23-71 46-49 46-53 56-34 56-70 56-97 72-35 

VPAR6 1-134 37-27 73-56 

VPLAS 1-140 29-18 29-26 29-36 29-47 69-114 

VSLEDT 1-136 69-129 

VSWPFL 1-101 24-134 29-16 35-121 69-123 

VSWPSL 1-95 28-32 28-34* 28-45 35-123 

VSYDMP 1-84 69-167 

VU*CL 1-143 42-15 

VUCLMC 1-143 42-17 

VUXIFL 1-129 5-44 5-51 

WINBAS 1-103 9-25* 

WRKBUF l-207# 24-239 24-243 25-20* 38-26 41-28 41-82 42-55 52-39 52-47 52-66 52-78 

53-43 56-28 56-62 59-35 59-50 59-57 66-16 68-23 72-29 73-53 75-64 79-38 

WRKSIZ 1-20S# 24-237 25-21* 79-40 

XMVBAS 1-195# 12-47 12-72* 24-101* 

ZCLR 1-109 17-21 17-22 
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. . . CMO 


28-84 


29-68 


30-110 


41-91 


42-66 


79-27 


79-53 












. . . CMl 


6-29 


24-243 


28-50 


28-62 


28-70 


29-30 


29-47 


29-55 


30-85 


30-94 


30-99 


38-21 




38-27 


33-62 


41-22 


41-29 


41-31 


41-68 


41-78 


41-82 


41-84 


42-43 


42-52 


42-55 




42-60 


52-25 


52-39 


54-25 


56-21 


56-29 


56-63 


59-36 


59-50 


60-35 


66-17 


60-24 




72-30 


73-25 


73-54 


75-20 


75-32 


75-51 


75-70 


77-25 










. . . CM2 


6-29 


6-29 


6-29 


6-29 


23-19 


23-23 


23-61 


23-63 


23-78 


23-176 


24-221 


24-243 




24-243 


24-243 


24-243 


28-50 


28-50 


28-58 


28-58 


28-62 


28-62 


20-62 


28-70 


28-70 




28-70 


28-70 


29-30 


29-30 


29-43 


29-43 


29-47 


29-47 


29-47 


29-55 


29-55 


29-55 




29-55 


30-85 


30-85 


30-90 


30-90 


30-94 


30-94 


30-94 


30-99 


30-99 


30-99 


30-99 




38-21 


38-21 


38-27 


38-27 


38-27 


38-27 


38-62 


38-62 


41-22 


41-22 


41-29 


41-29 




41-29 


41-29 


41-31 


41-31 


41-31 


41-31 


41-68 


41-68 


41-73 


41-73 


41-70 


41-70 




41-78 


41-82 


41-82 


41-82 


41-82 


41-84 


41-84 


42-43 


42-43 


42-48 


42-40 


42-52 




42-52 


42-52 


42-55 


42-55 


42-55 


42-55 


42-60 


52-25 


52-25 


52-39 


52-39 


52-39 




52-39 


54-25 


54-25 


54-25 


54-25 


56-21 


56-21 


56-29 


56-29 


56-29 


56-29 


56-63 




56-63 


56-63 


56-63 


59-36 


59-36 


59-36 


59-36 


59-50 


59-50 


59-50 


59-50 


60-35 




60-35 


60-35 


60-35 


66-17 


66-17 


66-17 


66-17 


68-24 


68-24 


68-24 


68-24 


72-30 




72-30 


72-30 


72-30 


73-25 


73-25 


73-54 


73-54 


73-54 


73-54 


75-20 


75-20 


75-32 




75-32 


75-32 


75-32 


75-51 


75-51 


75-51 


75-51 


75-70 


75-70 


75-70 


75-70 


77-25 




77-32 


77-34 


78-19 


78-24 


78-26 


78-28 














. . . CM3 


28-57 
73-81 


28-72 
75-95 


29-42 


29-56 


30-89 


30-101 


41-72 


41-83 


42-47 


42-65 


50-76 


56-111 


. . . CMS 


6-29 


6-45 


6-46 


23-19 


23-23 


23-31 


23-32 


23-33 


23-36 


23-54 


23-55 


23-61 




23-63 


23-67 


23-78 


23-176 


24-221 


24-226 


24-227 


24-243 


27-84 


27-85 


27-91 


27-92 




27-96 


27-97 


27-101 


28-50 


28-58 


28-62 


28-70 


28-84 


28-95 


28-96 


20-102 


28-103 




28-108 


28-111 


28-116 


28-119 


29-30 


29-43 


29-47 


29-55 


29-68 


29-77 


29-78 


29-04 




29-85 


30-60 


30-61 


30-85 


30-90 


30-94 


30-99 


30-110 


30-131 


30-132 


30-138 


30-139 




38-21 


38-27 


38-62 


38-75 


38-76 


38-81 


38-82 


41-22 


41-29 


41-31 


41-60 


41-73 




41-78 


41-82 


41-84 


41-91 


41-101 


41-102 


41-108 


41-109 


42-43 


42-40 


42-52 


42-55 




42-60 


42-66 


42-76 


42-77 


42-83 


42-84 


44-151 


44-152 


46-76 


46-77 


52-25 


52-39 




54-25 


56-21 


56-29 


56-63 


58-6 


58-7 


58-10 


59-36 


59-50 


60-35 


66-17 


66-51 




66-52 


68-24 


68-52 


68-53 


68-58 


68-59 


71-34 


71-35 


72-30 


72-73 


72-74 


73-25 




73-54 


73-93 


73-94 


73-99 


73-104 


73-105 


74-78 


74-79 


75-20 


75-22 


75-23 


75-32 




75-51 


75-70 


75-138 


75-139 


77-25 


77-32 


77-34 


77-53 


77-54 


77-57 


70-19 


78-24 




78-26 


78-28 


79-27 


79-53 


80-20 


80-21 


81-18 


82-26 


83-26 








. . . CM6 


23-19 

78-28 

6-29 


23-23 


23-61 


23-63 


23-78 


23-176 


24-221 


77-32 


77-34 


70-19 


70-24 


78-26 


. . . CM7 


24-243 


28-70 


29-55 


30-99 


38-27 


41-29 


41-31 


41-82 


42-55 


52-39 


54-25 




56-29 


56-63 


59-36 


59-50 


60-35 


66-17 


68-24 


72-30 


73-54 


75-32 


75-51 


75-70 


. CLOSE 


l-50# 
75-95 


28-57 


28-72 


29-42 


29-56 


30-89 


30-101 


41-83 


42-65 


50-76 


56-111 


73-81 


. CSTAT 


1~53# 


42-60 






















. DATE 


l-52# 


24-222 






















. DELET 


1-51# 


28-58 


29-43 


30-90 


41-73 


42-48 














. DSTAT 


l-52# 


79-27 






















. ENTER 


l-49# 


28-62 


29-47 


30-94 


41-78 


42-52 














. EXIT 


1-51# 


5-168 


6-47 




















. FETCH 


l-52# 


79-53 






















. OTIM 


l-52# 


23-19 


24-221 




















. eVAL 


1~49# 


23-78 


23-176 


77-32 


77-34 


78-19 


78-24 


78-26 


78-28 








. HERR 


i-51# 


23-57 






















. LOCK 


l-52# 


23-01 






















. LOOKU 


l-49# 
73-25 


28-50 
75-20 


29-30 


30-85 


38-21 


38-62 


41-22 


41-68 


41-84 


42-43 


52-25 


56-21 


. PRINT 


l-50# 


6-45 


6-46 


23-31 


23-32 


23-33 


23-36 


23-54 


23-55 


24-226 


24-227 


27-84 




27-85 


27-91 


27-92 


27-96 


27-97 


27-101 


28-95 


28-96 


28-102 


20-103 


20-108 


28-111 




28-116 


23-119 


29-77 


29-78 


29-84 


29-85 


30-60 


30-61 


30-131 


30-132 


30-130 


30-139 



\ 
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38-75 58-76 38-81 38-82 41-101 41-102 41-108 41-109 42-76 42-77 42-83 42-84 

44-151 44-152 46-76 46-77 58-6 58-7 58-10 66-51 66-52 68-52 68-53 68-58 

68-59 71-34 71-35 72-73 72-74 73-93 73-94 73-99 73-104 73-105 74-78 74-79 

75-22 75-23 75-138 75-139 77-53 77-54 77-57 80-20 80-21 

. PURGE l-50# 41-72 42-47 

. READW l-49# 6-29 24-243 38-27 41-29 41-31 52-39 54-25 56-29 56-63 59-36 59-50 

60-35 66-17 68-24 72-30 73-54 75-32 75-51 75-70 

. RELEA l-52# 28-84 29~6S 30-110 41-91 42-66 

. SAVES l-49# 77-25 

. sec A l-53# 23-23 

. SERR 1-51# 23-50 

. SETTO l-50# 23-67 

. TRPSE l-50# 23-61 23-63 

. TTYOU l-50# 81-18 82-26 83-26 

. UNLOC 1-51# 24-232 

.WRITW 1-51# 28-70 29-55 30-99 41-82 42-55 

CLVX 3-53# 3-61 3-62 3-63 3-64 3-65 3-66 3-67 

DEFFLG 3-8# 3-14 3-15 3-16 3-17 3-18 3-19 3-20 3-21 3-22 3-23 3-24 

3-25 3-26 3-27 3-28 3-29 3-30 3-31 3-32 3-33 3-34 3-35 3-36 

3-37 3-38 3-39 3-40 3-41 

DISABL 1-161# 56-71 61-18 72-41 73-61 

ENABL 1-165# 56-85 61-65 72-55 73-73 

HANVER 2-9# 2-30 2-31 2-32 

OVLTBL 69-45# 69-51 69-52 69-53 69-54 69-55 69-56 69-57 69-58 69-59 69-60 69-61 

69-62 69-63 



{ 



